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105 MAINDEC-11-D@FPD-A PAGE 3 
107 
198 1. ABSTRACT 
110 S ISER FOR THE 1/6X FLOATING POINT 
He gs POCGRRLAS “PARIS EE" BOPP HCRLENISE ern 
113 GENERATED ars treutéo & Bins rest ts OSTAINED FROM 
He re exis" Sees "ih NE HO TRE not 
117 TI Hl 
116 sO0¢8) ieee oe Re GRR <a oo eee bah 
119 THAT A SUFFICIENT NUMBER OF 
120 POR USE AS OPERANDS. ALSO AT THIS MIS TIME fos EHO, aut: 
lel INFORMATION OF RANDOM OPERANDS SELE ELECTED CAN BE 
123 (POP LL 8K ESCO, oBeTt BOINT UNITS CAN BE SELECTED FOR 
125 
125 
127 
128 ; REQUIREMENTS 
130 2.1 EQUIPMENT 
132 PDP-11/6X STANDARD COMPUTER WITH MINIMUM 16K OF MEMORY. 
133 OPTIONAL FP11-E FLOATING POINT UNIT, IF SELECTED. 
135 2.2 STORAGE 
137 THE PROGRAM USES MEMORY 0-34164(8). THE UPPER 2.0K WORDS ARE 
138 RESERVED FOR THE XXDP MONITOR, IF EMPLOYED. 
140 2.3 PRELIMINARY PROGRAMS 
142 THE CPU, AND MEMORY TEST PROGRAMS MUST BE RUN FIRST TO 
143 VERIFY” ‘i CORRECT OPERATION. OF THE BASE MACHINE. 
145 THE PDP-11/6X - FP11-E FLOATING POINT PROCESSOR INSTRUCTION 
1b SET TESTS SHOULD THEN BE RUN IN THE FOLLOWING ORDER: 
148 (1) DQFPA IC INSTRUCTION TESTS 
149 (33 Dorpe FRU ROVANCED T TRUCTION. TESTS 
150 (3) DQFPC FPU INSTRUCTION 
161 (4) DOFPD FPU ADD/SUB/MLLVDIV RANDOM EXERCISER 
153 
154 
155 3. LOADING PROCEDURE 
157 USE THE STANDARD PROCEDURE FOR ABSOLUTE TAPES, OR LOAD VIA 
158 XXDP MEDIA. 
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; MAINDEC-11-DQFPD-A PAGE 4 
4. STARTING PROCEDURE 
: 8.4 CONTROL SWITCH SETTINGS 
1 SEE SECTION S.1 


SWITCH REGISTER (000000) IS WORST CASE TEST. 
%.2 STARTING ADDRESS 
THE PROGRAM MUST ALWAYS BE STARTED AT LOCATION 200(8). 
4.3 PROGRAN/OPERATOR ACTION 
LOADING VIA ABSOLUTE PAPERTAPE: 
(4) LOAD. ADD PROGRAM 0 — USING ABS LOADER. 
(3) C pd} 
$e: 600000) bat rohe ESt 
3) mee 
(S) TYPE STDENTIFICATION —_—s (VERIFY THAT THE 
CORRECT PROGRAM HAS BEEN LOADED!), AND EXECUTION BEGINS. 


. OPERATING PROCEDURE 
§.1 OPERATIONAL SWITCH SETTINGS 


DEFINITION Fic BITS IN THE SWITCH REGISTER 
(EITHER HARDWARE OR dg ARE AS FOLLOWS: 
SW1S=1 100000 


SW13=1 820000 tote  BeewThe RO IS AN “ERROR 
AN ERROR DETECTED IN 


met OS RELATED STS TEATS Aw US 8, onc eRRE 


a 
ZENKER OS SR GRR LOS OSE SRR PRBS Nol TIN aSe SRR ERO oS :- 


SW11=1 free IT ITERATIONS TEST 
1 \ Goe00) Ser ON PASS END 
SWO8=1 000400 Loge ONESt SPE Meee an * “THe, TEST NUNBE ner 
i Dene ali » fe 
me Hi > necel HFP, PASSA WEP. PASSE2 AEP. 


210 
ell 
ele 
el3 
214 


Passe ETC) 
SET=TEST ONLY UNIT SPECIFIED IN SWOO 
SWOO 000001 SET=SELECT WARM FP, IF SWOl=1 
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S.2 
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CLEAR=SELECT HOT FP, IF SWO1=1 


#NOTE# re SWO1 “tee FP - IF NO FP11 ‘+ 


FP ( S_ PRESENT 
Pope LEX MICROCODE ) T C 


) I 
S AUTOMATICALLY 
PROGRAM/OPERATOR ACTION 


ONCE EXECUTION HAS BEGUN, MINIMAL OPERATOR INTERVENTION IS 
REQUIRED, UNLESS THE PROGRAM DETECTS AN ERROR IN THE HARDWARE. 


PROGRAM TYPES ITS NAME ue. BEGINN 


ee, is b Raeecle St WILL INMIBTT Ct 


IF SW<10> 


END OF 
END Ei base Buz) HAS NO et “FEFECTS 73 TE BLL NRINGING AT- 


iF Are, POSSIBLE TOEPEROING UPON Tie Suitch Uitch SETTINGS, IN ACTION 


awed oat Mitt LL Aig tT any ANY ERROR MESSAGE TYPEOUT THAT 
"SH. 10)=1 WILL CAUSE THE CONSOLE BELL TO. BE RUNG GNLY WHEN AN 
a Borg EASES: THE PROGRAR TO LOOP ON THE MOST RECENT ERROR, 
AS LONG AS IT CONTINUES TO OCCUR. 
THERE ARE ALSO SEVERAL OTHER GENERAL USE FUNCTIONS DEFINED BY 
op GA TL HTLL IN ITH THE ITERATIONS (=2000(19)), PERFORMED 
SW<14>=1 CAUSES proche 70 LOOP INOEFINATELY ON THE 
ct res | etic Sa TO CONTINUE EXECUTION AS 
Rireen 0 securing WORD TSLPTST™ MATCHES tes Te 
Test 13 Tet " kd UNTIL T TTR SW<83=0 OR 
CHANGED. NOT {THAl he “SLPTST™ DOES NOT HATCH THE 
: ee ‘ GRORED. ano” XtcuTt Then PROCEEDS NORMALLY 


HOT (FP11-E) 7 WARM (PDP-11/6X) SELECTION 


att y Peper iS a (AT FC te, A MESSAGE IS 

PRINTED _INODIC E/ABSCENCE OF AN 

FPLL-e. HG HOT rie POINT oe very oer ON (BASED UPON WHETHER 
BIT<O% IS 1/0 RE 


IF NO FP11-E HOT FP OPTION IS PRESENT, THE MESSAGE IS TYPED, 


~— 
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273 
274 AND ANY ATTEMPTS TO SELECT iT FOR TESTING VIA SWOl AND SWOO 
27s ARE IGNORED. ONLY WARM (POP-11/6X MICROCODE) FLOATING 
eve POINT CAN BE TESTED/SELECTED. 
278 IF THE FP11-E IS PRESENT, TEST SELECTION IS AS FOLLOWS: 


wen os THE HOT AND WARM FLOATING iy pale ARE TESTED 
AL TELY EACH PASS - IN THE ORDER (1) THEN (2) WARM. 
NOTE THAT EACH “PASS” NOW CONSISTS OF TWO spnAATE cus SUB-PASSES. 


WHEN SWOl=1, THEN DEDICATED SELECTION OF A PARTICULAR UNIT IS 
SPECIFIED IN SWOO: 

SWOO=0 --) TEST HFP FP11-E OPTION ONLY 

SWOO=1 --> TEST WEP PDP-11/6X MICROCODE ONLY 


6. ERRORS 
6.1 FORMAT OF MESSAGES 
6.1.1 ALL ERROR MESSAGES CONSIST OF THREE LINES OF DATA: 


THE wes detec hie 13 A BRIEF MESSAGE WHICH EXPLAINS WHAT ERROR 
G, THE RESULT OF THE “ABSF” INSTRUCTION WAS 


THE PREFIX “HOT:” oF ae at op ne ALSO ATTACHED TO THE MESSAGE ~ 
TO. INDICAT specter HE ERROR; THE FP11-E UNIT OR THE 
POP-11/6X IVELY. 


THE SECOND LINE poaisrs OF DATA HEADERS TO IDENTIFY THE 

Vee TYPED OUT ON LINE THESE THESE HEADERS WILL EITHER BE 
OF THE FORM PEXPECTED" AND CEIVED” DATA, OR WILL BE A 

NNEMONIC NAME OF A WORD LOCATION IN MEMORY OR REGISTERS. 


THE THIRD LINE DISPLAYS THE CONTENTS OF THE LOCATIONS 
SPECIFIED BY LINE TWO AS SIX DIGIT OCTAL NUMBERS. NOTE THAT 
ALL DATA DISPLAY IN ANY MESSAGES ARE OCTAL NUMBERS. 


BS EXPLAINED IN SECTION SETTING SW<13>=1 WILL SUPPRESS 
THE TYPING OF NubSe rec Rees. 


BERR EGROSEE RAE OR ESR SRR RE SS 


310 
311 
3le 
313 
314 
315 
316 
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WWW) 
oe 
won 


6.1.2 FLOATING POINT UNIT DATA FORMATS: 
FLOATING POINT STATUS WORD (FPS): 
BITs# OCTAL FUNCTION 
1S 100000 ost ELST INS gach 
aa FIV, FIC ENABLED 


ION OCCURRED. 
14 040000 FID - FLOAT NG DISABLE INTERRUPTS 
aie NO FP_INTERRUPTS TO VECTOR 244(8) IF SET. 
11’ 


NOT 
UV_- FLOATING UNDEFINED VARIABLE INTERRUPT 


oo4o000 FI 
IF SET (0) DATA IS ERROR 
10 002000 FIU - FLOATING INTR 
IF AND OW, SET FER, STORE ANSWER, 
By Hb0(8) <-- ZERO 
g 001000 fy = FLOAT Ne OUERE LOH IN T 
OW, SET FER, STORE ANSWER, 
EXPONENT WRONG BY BY -A00(8) 
) 000400 F s OAT Eoeh GONE TET eRRUPT 
I SET ine Inte VERSION <== ZERO, SET 
IF AND “STCFI™ ERROR, ANSWER <-- ZERO 
? 000200 - TING 
1=pouBt , 64 ert OPERANDS cu) 
6 ooo100 Pies INTEGER RODE 
1=LONG, 32 BIT INTEGERS (2W) 
D=SHORt 6 BIT INTEGERS (1W) 
s onnowo FT Rolain 
= re TS 


pone FMM - burt PPIIce Y_IN MAINTENANCE MODE 


4 
3:0 FN-FZ2-FV-FC - FLOATING CONDITION CODES 
FLOATING EXCEPTION CODES (FEC): 

OCTAL ENABLE 


IBS) SPI cn 


PERE SOUR CURE B SEGRE ORES BRUM RS S Re uN RRS 


-P if WEY EP UNDEFINED-VRRIABLE/(-0) ERROR 

367 ig CY OE Rr ENEnce Sane” 

369 NOTE - IN “FEC™ CODE TYPEOUTS IN ERROR MESSAGES ONLY THE LOW 
370 R BYTE IS USED - IGNORE THE PROGRAM FLAG BIT IN THE UPPER 


BYTE 


WwW 
“ 
yo 
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FLOATING POINT DATA: 


IN FLOAT MODE (FD=0), IS 2-16. BIT WORDS, 32. BITS 
IN DOUBLE MODE (FD=1}, IS 4-16. BIT WORDS, 64. BITS 


FIRST WORD: (BOTH FD MODES) 
Repeats Li 


, 8.8 1S’ Pao -128./7+127. 
:O0=FRACTION, 7.BITS 


vot 


w 
3 


1S: 16. 
THIRD, FOURTH (ONLY D MODE) 
B1S:00, Bl ‘ DOLFRACTION. 32. BITS 


MODE, THE COMPOSITE 24. BIT FRACTION 
ORMED BY: 


. 18(WORD1-BIT<06:00> ) #{WORD2-BIT<15:00> ) 
p pat ie COMPOSITE S&. BIT FRACTION 
. 1@[WORD1-B1T<06:00> ) #{WORD2-BIT<15:00> 1) 
@(WORDS-BIT< 15:00) ) @{WORDY-BIT<15:00> ] 


FOR A NORE DETAILED OPERATION/EXPLANATION OF Se Bc POINT 
PANGBOOR CECTION ON SHE FLORTENG POINT TRSTRUCTION SE 


6.2 RECOVERY 
BEEN ATTEMP TO AS 
AUTORET IC. AND AIO EFFORTLESS fs PO ote be se HEVER, INA MANY 1 GASES, 


TO_THE NATURE OF NOT 
"pec ath Ener Gi BW Peaks Dias 


SRIRREBRER SOLER TOR OETA CERES 


yf a 
i [Scie Se etttne Peat tO Hine 
Se Dee SEIU suction 
a men TH Hb Uy mr mesic 


BSNL nat se RU st br Boal B 


the a NNI One te PROGRAR WILL 
brePray at MA NeRRORS THE NGUALLY 208 AFORMATION RELATING 

TO THE ERROR, AND A BRIEF EXPLANATION OF THE FAILING FUNCTION. 
6.3 CAUSES 
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Ratt ecto chor race toe Neen 
UPSET Pec OES NAL BRE UHH 


IS_ THE INTENT UNDER i WHI Gh OFMESE erento nee TeeTs WERE 
DESIGNED AND CODED. 


RESTRICTIONS 

STARTING 

THE PROGRAM MUST BE STARTED AT LOCATION 200(8) ALWAYS. 
OPERATIONAL 

THERE ARE NO OPERATIONAL RESTRICTIONS. 


MISCELLANEOUS 
EXECUTION TIME 


AVERAGE EXECUTION TIME PER PASS 


MODEL SHORTEST PASS LONGEST PASS 
PDP-11/6X 20 SEC 8 MIN:30 SEC 
POP-11/6X W/FP11-E XX SEC X MIN: XX SEC 


SEC = SECONDS / MIN = MINUTES 

SHORTEST PASS ::= NO ITERATIONS, USING SWR=(CO4O00) 

LONGEST PASS ::= 2000(10) ITERATIONS/TEST, USING SWR=(000000) 
STACK POINTER 

Tract fe oF OPERATING CORRECYLY Tt SHOULD ALSO Be Fire VALUE At 
HE OF EACH TEST, AND At THE E 


POWER FAIL 
THE TESTS MAY BE POWER FAILED AT ANY TIME. SPURIOUS ERROR 
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9.1 


ME S MAY OCCUR IF THE FAILURE OCCURRED WHILE THE F.P.U. 
CUTING A FUNCTION, AS OF ITS REGISTERS (FPS, FEC, 


TORR ABE BAYED IN THE RYENT OF 8 POWER FAILURE: 
IMMEDIATELY pmeeies POWER IS RESTORED. WHEN POWER IS RESTORED 
; , THE CONSOLE AND EXECUTION CONTINUES WHERE 


NOTE rer THE "VOLATILE" i hs swe Pen Pai. "SEQUENCE ENCE; 
THEREFORE TH THe SWI TCH REGISTER S SETTINGS SHOULD NOT BE LOS 


PROGRAM DESCRIPTION 


ORGANIZATION 
ORGANIZED AS MUCH AS POSSIBLE IN A 


STRALGHTEORNERD, LINEAR MANNER. THE MAIN BODY OF CODE I 


(1) wees gt x ROUT INE 
io gt » TYPES HEADER, ETC. 
(2) MAIN 


“ot Soe, INLINE TEST CALLS 
(3) END IN oe 


° SSING 
(4) TEST 
- SUBROUTINES CONTAINING COMMON TEST CODE 


(5) OVERMEERVICE SUBROUTINES (TYPEOUT, ETC. » 


peer Fee COMMON SECIONS OF CORE Of CONSE i A YaeD 


oe rine pura Soon Te 


A EN 


E DATA | 
s any * ba foe | 
Eel G Me Reatnnes.” * 
BCE li Bare Teer Os 


TESTS BEGINS AS SIMPLY AS POSSIBLE, FIRST TESTING THE MOST 


238 de 
‘ 


BE BES RR EERE Bde Toul Sano SBOE oe SOME ose Gatos 


8 
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3.2 


9.3 
9.3.1 


9.3.2 


A’ PuILosoPuy That THE SIMPLER THe TEST, THE GET 


EVENTUALLY tESTED BUT 


THE RESOLUTION 
Ru PORE Pie PRE RI oF LDR BET Fear dares 


S PRESENTED IN SECTION 9 


TEST DESCRIPTION 
THIS DIAGNOSTIC CONTAINS TESTS FOR Ls FLOATING POINT ’ADD-’ 


The tna. E7bout EY ROUNO/TRURGATE, ARO _ “OVERFLOW -UNDEREL a of 
‘te I ree Lele then OSES 6 USES “BOTH Te 
SHOULD ahr (WITH 1 +/- I DEVIATION } INTHE THe 


STATUS RSTRUCTIONS MUSED FOR MANIPOLATING THE 
OPERANDS AND RESULTS 


PURPOSE OF THESE TESTS IS TO EXERCISE BOTH THE DATA PATH 
PORTIONS OF THE FLOATING POINT UNIT onehne, FOR 


Bs "Ets 
Hae Shas RTS LTE EGR oe 


NT. 


SUBROUTINE ABSTRACTS 
TRAPCATCHER 


THE TRAPCAT IS A SERIES OF INSTRUCTIONS OCCUPYING THE 
INTERRUPT VECTOR REA 3F RERORY. T CONSISTS OF THE SEQUENCE: 


-WORD .+2 ;PC AFTER TRAP 
-WORD 0 ;PS AFTER TRAP 


ETT A ae Rake 
C1) THe feu LOeere ¢ rey. ZEROS), AND (2) THE NEXT 
TION TO TE (O=HALT) 


Ihe THE” VECTOR BREE LTH AEPROPRIATE. VALLES, The OTHER BEING 


LEFT IN THE “ 


BEL BME aes 5 tint on re laf Tr, fein 


N THE ADDRESS CTGHTS: 
SCOPE ROUTINE - SSCOPE 


SH 
S35 
5% 
597 


BEC RR EERE Sse 


PROMS MO ooo 
DONOW CWO 


e381 
622 
p54 
625 
657 
628 
629 
630 
631 
632 
633 
634 
635 
ea? 
638 
639 
640 
is 
644 
i 
647 
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9.3.3 


Samara aman 
Cea eee a 


oe i 
=r Te ckat neo LTE “ang pte) LONITIAL {Ze FOR THE 


ML al vip AN “IOT™ 
Doce I ate). SCOPE=I0T TRPQUATE) - 


a Tarihi Se HG. ee heaters 
ee ite ahs anes om 
SMXCNT - MAXIMUM NUMBER OF Mette ONS PER TEST 


STSTNM - A COUNTER Nota (1-377(8)) OF 
SLPAOR ~ GORTAINS THE ADORESS, TO, IMIEH THE Sore 
nro - A Ue EE ote 


SeciPIED IN THe Sui tches. wa 
GENERALLY WILL = 1 SAME AS 


ERROR ROUTINE - SERROR 
THe ERROR ROUT eS ee 
ee ot 


Hs ue eae a 


TEST CODE HAS pe renies 
Lat THROUGH USE 


19, nf ne 


SB AC" US Fe Pie Bite ts f 


BA aay oD eet Cet RT 
THE CALLING MECHANISN 1S SIMILAR, TO THAT FOR THE 
Trerruction Ts Use, Trapping TrRoUGH Pa it ik 
Tne TaD Y10K rE Crate oF THANGNITTING AMBER FROM 0-577<E), 


“ERROR ITEM NUMBER.” 1S NUMBER 









9.3.7 






AUTOMATICALLY PLACED 
OCTAL NUMBER TYPE ROUTINE - STYPOC 
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652 
653 ita NES WH AS 
B54 aes, (ee Fin Enon 13 s SIGNALED Pe OR 
656 
5 Ses ot te 5 Mh Set 
bo Those TO OR FURTHER DETAILS). 
B60 IMPORTANT VALUES USED IN THIS ROUTINE ARE: 
bbe EREGO THRU EREG? = CONTENTS OF GENERAL REGISTERS RO 
B64 SERTTL - COMLATIVE RURGER OF ERRORS ENCOUNTERED TO 
B66 SERRPC - fier Be offs OF THE “ERROR” INSTRUCTION 
668 SLPERR - A ADDRESS WHICH WILL BE LOOPED 
669 UPON FOR THE ERROR LOOPING FACILITY 
71 9.3.4 ERROR MESSAGE TYPEOUT ROUTINE - STYPERR 
673 Paoee ROUTINE, (ST sae Y POINT) seo I 9,403 Mane, CALLED 
on as iis pureoge Ie 
676 FACILITY, oie INE WILL, IVEN ne WALEED BYTE FROM 
677 PICK’ CT ERROR MESSAGE 
678 VEETOR Brrr GRE (ERR TABLE) i YPE OUT THE ERROR 
673 MESSAGE, DATA , AND DATA VALUES ON THE CONSOLE. 
681 9.3.5 TYPE ROUTINE - STYPE 
683 THIS ST YSTEM TYPEOUT ROUTINE FOR ASCII 
is haa ne se a 
ce Tori rlbe Win” Mle HOS tah 
689 


ION, AND TYPES IT ON THE 
SEE LISTING FOR OPTIONS AND FURTHER 


THIS ROUT RTS THE TOP NUMBER ON THE STACK TO A &-DIGIT 
7 PRESENTAT CONSOLE USING THE 


OCTAL 
TYPE 
DETAILS. 
Dag AMTICO OTR _FOR_ To 


THO ROUTINES ARE oF OR TH THE opOHER Re AND DOWN 
a ie CTI ROUT INE pg SPHRON) 
Spas Se a eg 
ae POINTER I 


S RESTORED. 
Sie 208 TER I ALSO SAVED/RESTORED 


BY THIS ROUTINE. 
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703 9.3.8 END OF PASS ROUTINE - SEOP 
71 THE END OF PASS ROUT Ne COUNTS THE NUMBER Pree ie 
is att CIE TF ENeRLED) Bee ete lt te ROTOR 
714 PRESENT ALS OPTIONALLY 
gis ORE S1GNLLING AN END OF 3 OBERT TION 
717 : 
718 
ah 10. ACT/APT/XXDP 
ze 10.1 ACT COMPATIBILITY 
723 THIS PROGRAM WILL RUN UNDER THE ACT SYSTEM. 
76 10.2 APT COMPATIBILITY 
727 THIS PROGRAM WILL RUN UNDER THE APT SYSTEM MONITOR. ALL 
708 NECESSARY SOFTWARE COMMUNICATION HOOKS ARE PRESENT. 
730 10.3. XXDP COMPATIBILITY 
732 FOR XXDP MEDIA COMPATIBILITY, THE TOP 2K WORDS OF THE 16K WORD 
733 MINIMUM MEMORY AREA ARE NOT DISTURBED DURING EXECUTION. 
735 
736 
737 .ENOR 
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;*DIGITAL EQUIPMENT CORP. 
;#MAYNARD, MASS. 01754 


;#THIS PROGRAN ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
;#PACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977. 


4 
+ SBTTL OPERATIONAL SWITCH SETTINGS 


if SWITCH OCTAL USE 

i 15 100000 HALT ON ERROR 

i 14 L OP Y EXECUTING TEST 

* 13 NHIBIT TYPEOUTS 

te 12 10000 INMIBIT STATUS TYPEOUTS 

Le li 904000 INHIBIT IONS 

;# 10 e END 

* 002000 1 

1 9 000 LOOP 

te a LOOP NUMBER IN “SLPTST™ 

1 1 ST HEP/WEP ALTERNATELY EACH PASS 
:# oo0002 1=TEST ONLY UNIT SPECIFIED IN SW<O0> 
te 0 gnoo02 =SELECT HEP, IF SW<O1>=1 

* L=SELECT WFP’ IF SW<Ol>=1 


-SBTTL BASIC DEFINITIONS 
j#INITIAL ADDRESS OF THE STACK POINTER ### 1100 ### 


STACK= 11 
“EQUIV ENT ERROR ;;BASIC DEFINITION OF ERROR CALL 
“EQUIV [oT BASIC DEFINITION OF SCOPE CALL 


; #MISCELLANEOUS DEFINITIONS 
T= Il 3 FOR HORIZONTAL TAB 
LF= le $8 FOR a 
CR= 1S 38 FOR RETURN 
CRLF= 200 33 on RETURN-LINE FEED 
PS= 177776 $8 STA WORD 
STRUT aaa ACK LIMIT REGIST 
s +5 
IRQ= 177772 + BROGRAN THTERRUPT REQUEST REGISTER 
SWR= 177570 ;;MARDWARE SWITCH REGISTER 
DOISP= 177570 ; ;HARDWARE DISPLAY REGISTER 
; #GENERAL PURPOSE REGISTER INITIONS 
Ro= 40 ;;GENERAL REGISTER 
Ri= “1 33 GISTER 
= ze se RAL REGISTER 
R3= %3 ;;GENERAL REGISTER 
z “4 5 ENGR 3! TER 
RS= “5 38 RAL REGISTER 
= “6 ;;GENERAL REGISTER 


DOe 


oc O-UM7TWwr 
uj o 
— wi —! 
Warr Perey 
=) 
Ges pate 
mo 
oo >>> 
= - fat at at at at at at 
- 004 4 0-404 4 0 
3 S SSSSESSS 
e ¥ oectatesch tase} 
snk SESTETE TE 
eeeaeee es eR OS CS CH SH OS OS ee 
& = 
oO z 
— _— 
re 
rt a 
bs re 
fe 4 
re ty 
ss 4 we 
BE nen roSSPRERE 
uw XXX FOF 
= 4 
OQ 
_ 
=W 


bse festoanes | 


Bel Begaeee 


09-FEB-77 10:32 


Pll 


wr ale RANDOM EXER MACY11 27( 


100000 
2 
e 
Sil 
SWO 


j#° SWITCH REGISTER” SWITCH DEFINITIONS 


EE sane ceese 


"ipo (BITOO TO BITS) 


ee BeeeGoes. 


= au tet te 
SALAMA. 3 8 
el ol el el ae 

BR AF IE Od bd 


epee suceostes 


ee Sed dat it it eee ihn pimp une euui ey tee ee ee ees 


Oe 
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DOFPDA.P11  09-FEB-77 10:32 BASIC DEFINI 
gS0 000004 BITO2= 4 
ges Bifooe 7 
I TOO: i 
853 -EQUIV BITO9,BIT9 
BS .EQUIV B8IT08,81T8 
.EQUIV BITO7,B1T7 
geo ‘Fouly Biiee' Bite 
“EQUIV BITOS, BIT 
B58 “EQUIV BITO4;BITY 
859 EQUIV B1103,B113 
a Huy Btrar-etn 
Bbe “Bouty Bt BITO 
864 -#BASIC “CPU" TRAP VECTOR RODRESSES 
B6S 000004 ERRVEC= 4 3; TIME OUT AND OTHER ERRORS 
B66 9000110 Teivec 19 is RESERVED AND ILLEGAL INSTRUCTIONS 
' = ee 
B68 eet = 14 + rack TRAP aap 
869 000014 BPTVEC= 14 {BREAKPOINT (BPT) 
870 000020 IOTVEC= 20 rs Sieur TR TRAP (IOT) **SCOPE#* 
871 000024 PURVEC= 24 ;;POWER FAI 
872 000030 TVEC= 30 j SEMULATOR TR (EMT) *#ERROR## 
Ramee Ieee vero 
875 000064 TPVEC= 64 Bad INTER veETOR® 
876 000240 PIRQVEC=240 INTERRUPT REQUEST VECTOR 
878 -#MED INSTR CODES 
874 076600 MED= 76600 ; OPCODE 
881 ooo022 RWHAMI= O22 ;READ WHAMI 
883 000144 RFLAG= 144 ;READ FLAGS 
Bes 000344 WFLAG= 344 ‘WRITE FLAGS 
886 -¥FLOATING POINT INTERRUPT VECTOR 
B87 000244 FPPVEC= 244 
889 iXFLOATING POINT REGISTER DEFINITIONS 
BB a: 8 
893 000003 aj= 3 
Bo4 000004 acd= x4 
Bas 000005 ACS=  -%S 
896 
ee 
-SBTTL T TCHER 
B34 SBTTL TRAP CATCHE 
oo0000 
gos 


20 
si LOCATIONS F ONTAIN A". +2,HALT” 
HESEGUENGE fo ate NICREGRL, TRAPS NTERRUPTS 
: #LOCATI re CONTAI 0 CATCH I RLY LOADED VECTORS 


a 


WOWWOWHOWWwWw 
pe 
WONWUIC Whe 


FES SRRRRREERS SBE SON Bes 


Sos oe : 


Pll 


000174 


000176 
000200 


8888888 
- = 








002734 


FOe2 
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O9-FEB-77 10:32 TRAP CATCHER 


I G: .WORD ;; SOFTWARE DISPLAY REGISTER 
;; SOFTWARE SWITCH REGISTER 


G: :WORD 
-SBTTL STARTING. SQOREES EF TO STARTING ADDRESS OF PROGRAM 


-SBTTL ACT11 HOOKS 
AeREMeReMeneenaeneneaeneueoesenenenacaeecaeaeaeaeaecenenecents 


HOOKS RED BY AC 
» "ebvrcs, ;SAVE PC 
. ;;1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 


;;2)SET LOC.S2 TO ZERO 
ORE PC 


2 
- SBTTL apt TER BLOCK 


s ESE SE HEME SE aE aE ME SME OE aE a ES aE a aE J SE a a a a aa a a 


Ser LOCATIONS 24 AND 44 44 AS RE REQUIRED FOR APT 
Se aE SEE EEE HE aE AE SE a a a EE EE KKERKERERRG GREER REE R ER RREE EE EE 


SX=. 5 ; SAVE CURRENT LOCAT 
soot ji zeT POE FALL TO POINT TO START OF PROGRAM 
7 3FOR 
ssPOINT TO FET INDIRECT ROORESS PNTR. 


44 
SAPTHOR 
+ ROE [Boer Ton COUNTER * 
ee MMT JHRBIHBHHHEHHHHHHHHHHHHHHHHHEHHHEBGHEEEHEE 


ber TUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
INTERFACE SPEC. 


IBTS: . Os THO_HIGH BIT 8 BIT MAILBOX ADOR. 
SHasOR: “ORD SMAIL  feboREsS oF T Pr ral LBOX (BITS 0-15) 
STSTM: .WORD S10. 


His RR THR TI IM Seep SF ASTSOPES OY LD ICH 


“WORD SETEND-SATL SE ;sLENGTH MAILBOX-ETABLE (WORDS) 


FY) 
TIONAL UNIT 


Oe 
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DOFPDA.P11 09-FEB-77 10:32 COMMON TAGS 
pas .SBTTL COMMON TAGS 
347 5 5 LRRRREAREELERELE LEAS LLREL LEELA ELLA ELLER REALE R ERR EERE EERE 
i ATHIS Thee CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
;#USED IN THE PROGRAM. 
21100 
SCMTAG: ;;START OF COMMON TAGS 
STSTNM: ;;CONTAINS THE TEST NUMBER 
reve ; ;CONTAINS pd FLAG 
SICNT: . ss AINS SUB sf Lema Tar Onan 
to +3 


: 
gagusssassssssssssssssssss 


Bales 





SQS000000000+-000000000 
seers 
KAA 
BH 
RR 
g : 


SE88S88S888s8 S8S8SS8SSSSsssssssssessss 
BIRR TD ROR ONO ES SOREREN PNG TOR ERES 


Pe = be be be ht me bh be ee eb fh be Be Pe Pe > Bo Be Pe Pe be 


tae 
te 
000 SAUTOB: ; AUTOMATIC MODE INDICATOR 
000 SINTAG: :: INTERRUPT MODE INDICATOR 
eR Giov: tite Bike © HMDUEES OF RUUIRELECSE 
177560 $TKS: 1 2: TTY oa 
ees sre i TTY ReOWeeR Sta 
177ebe Sipe: ii TTY PRINTER BUFFER REG. ADDRESS 
00 SHULL: BYTE 0 is CONTAINS NULL CHARACTER FOR FILLS joa 
Ole sttt a: "BYTE le i mF ’ ReStR A TERE EED” 
000 STPFLG: .BYTE 0 :: "TERMINAL FLAG (BIT<O7>=0=YES) 
p00000 STIMES: 0 MAX. NUMBER OF ITERATI 
600000 bate SESCAPE: 0 ceaaemael 73E ooh ERROR ADDRESS 
ht Sous: ‘ABEL 7 | ouesrion PRK 
01S : ASCII «15> *: CARRIAGE RETURN 
000012 ASCIZ 


: s (12> LINE FEED 
«HHH HHHHHEHH HHH HEHEHE EHEHHEHHHEBHEHHE HEHEHE 
'SBTTL APT MAILBOX-ETABLE 


«. '” ”pealanaipeon-eptemers og aeaamaraamttmatatacthen penne eet issue tie 
SNAIL: ;;APT MAILBOX 

Bra: “HORD  AFATAL HTPBTAL Enon NUMBER 
HS : “LORD ATESTN iter R 
SPASS: .WORD APASS ;;PASS COUNT 
SDEVCT: “WORD ADEVCT ;;DEVICE COUNT 
SUNIT: [WORD AUNIT $3170 UNIT NUMBER 


BESSA LRP OEe SOR ORES Sao Son cece OTe MONDO se 


— 
TRORERR 


a 
s=vo 





ba 





—_— 


He 


ba pavers ree eS ee XER MACY11 27 54008) aber taar on 9S 22 





1001 1 i ss 

te Bis Sse: 10 SEER nese (on 
1003 O01 H T TABLE 

me ie a Bi, EE Sib, (ese ba ar 

1006 oolees ooothe SWREG: . ASWREG suITe REGISTER 

I cated pam SCPUOP: Ha Mah 

1 11/04201, 11/0S=02, 11/20=03, 11/40=04, 11/45=05 
1 1 PDQ=07, O=10 


: IT 10=REq Sane’e 
# 
E 


K 
IT S=FLOATING POINT PROCESSOR 
MENT 


© ee ee we wr wrws 
mo 
Fe | 
3S 
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DOFPDA.P11 09-FEB-77 ERROR POINTER TABLE 
1017 -SBTTL ERROR POINTER TABLE 
1018 001232 SERRTB: 
1088 ieTtarieoret on fo opfeiveD By UainG fhe TROEX huneER FOUND TN 


1023 age mg i sites 1 R ite! ares oeetee Ten N THE Ti s PERTINENT. 






EMVOl2: .WORD EMG,DHC,OTE,LOD,HID,O,0,0,0,0 ;MULD #*# 


1024 DATA IS (SE 
102s : eR IN N THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
1027 i EM POINT MESSAGE 

1028 * # DH POINTS 19 O THe DATA HEADER 

1023 is oo ;;POINTS T 

ie * feoe eee gL A Bg or 

1 1 e FF BRR, VEE ROUTINE $s 

1033 001232 033544 EMVOOL: :WORD €MJ,DHA,OTA,O,0,0,0,0,0,0 

itss | bolsue 800009 

1036 001254 

he a EMVOO2: .WORD EMK,DHA,DTA,O,0,0,0,0,0,0 ;SUBF  * FPS ERRORS 
1 001 

1040 001 

1041 001302 033544 EMVO03: .WORD EML,DHA,OTA,O,0,0,0,0,0,0 ;MULF # 

13 Dols 800000 

1044 riper 

1046 001326 000000 EMVOO4: .WORD 0,0,0,0,0,0,0,0,0,0 ; (UNUSED) 

i lee ie 

1043 001350 

1051 001352 033564 EMVOOS: .WORD EME,DHB,DTD,LOF,HIF,0,0,0,0,0 ;ADDF * 

1052 001360 000000 

1053 000000 

1 ss : 5 9¥,U,U,U, ‘ ud 

10es i 033576 EMVOO6: .WORD EME, DHC,DTE LOD,HID,0,0,0,0,0  ;ADDD 

1057 000000 

1058 001420 

ie Feasts EMVOO7: .WORD EMF,DHB,DTD,LOF,HIF,0,0,0,0,0 ;SUBF * 

i062 

1063 033576 EMVO10: .WORD EMF,OHC,DTE,LOD,HID,0,0,C,0,0  ;SUBD #* RESULT ERRORS 
ie 

1067 EMVO11: .WORD EMG,DHB,DTD,LOF,HIF,0,0,0,0,0 ;MULF # 

1 

1 

1 

1 


is 
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te 
E 


EMVO13: .WORD EMH,OHB,DTD,LOF,HIF,0,0,0,0,0 ;DIVF *# 





8 

eeeeee 
++ +t > 
Lse%>> 


EMVO14: .WORD EMH,OHC,OTE,LOD,HIO,0,0,0,0,0 ;DIVD # 


Bet hm Bm em fee Be pe he Bee 


Se aa es 


S 
Oo 
Feed ee 
Bee Eee Eee @ 






600000 
g33s4 
1 
1 033576 
1080 000000 
isl 000000 
te 
l 001 EmMVO1S: .WORD EMI,OHD,OTF,0O,0,0,0,0,0,0 ; ILLEGAL FPP TRAP 
1061 onus g33620 
1086 001626 000000 
1 4 001634 
108 1 EMVO16: .WORD €&MM,DHA,DTA,O,0,0,0,0,0,0 ;DIVF # 
1053 ones gaa 
ios Obiéss onooo 
1033 OO LBS aa ae EMVO17: .WORD EMN,OHA,OTA,O,0,0,0,0,0,0 ;ADDD =k 
1038 1 
10% Ohler, aadod 
10397 001706 033544 EMVO20: .WORD &EMO,DHA,DTA,O,0,0,0,0,0,0 ; SUBD % FPS ERRORS 
1096 001714 000000 
{ 
118? 001 033544 EMVO21: .WORD EMP,DOHA,DTA,O,0,0,0,0,0,0 ;MULD x 
1102 001740 000000 
ll clte4 44 EMVO2?- .WORD EMQ,DHA,DTA,O,0,0,0,0,0.0 ;DIVD # 
Lig oot gaa 
etd 001 000000 
i 
lll 033552 : .WORD EMR,OHE,DTB,0,0,0,0,0,0,0 ; ADDF 
ll1l 000000 
ile oa0coo 
tia : .WORD EMS,OHE,O0TB8,0,0,0,0,0,0,0 ;SUBF # 
ile 
Hig : .WORD EMT,OHE,OTB,0O,0,0,0,0,0,0 ; MULF # 
L139 
i : .WORD EMU,OHE,OTB,0,0,0,0,0,0,0 ;DIVF # FEC/FEA ERRORS 
i 
i2 : .WORD EMV,OHE,OTB,0,0,0,0,0,0,0 ;ADDD  =t 
1128 





i 


ee ee ee ae ee ee a ee ee eee ee ee ee ae ee a ee a eee ee be eee ee ee he Pe 


Cn ee eee 
SERLB ISI RFZINASSEVEHRISRTESBVYRALORL SSS 
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% EMVO30: .WORD EMW,OHE,OTB,0,0,0,0,0,0,0 ;SUBD  * 

: EMVO31: .WORD &MX,DHE,OTB,O,0,0,0,0,0,0 ;MULD#* 

% 

2 WORD EMY,DHE,OTB,O,0,0,0,0,0,0 ;DIVD # 

41 

“3 : .WORD EMA,DHA,DTA,O,0,0,0,0,0,0 ;F-MODE EXERCISER # FPS 
4 

47 EMB, DHA, OTA,0,0,0,0,0,0,0 ;D-MODE EXERCISER # ERROR 


EMC ,DHB, DTD, OP1F , OP2F , OP3F , OP4F , OPSF , OPEF , 0 ;F-MODE EXERCISER # RE 


5 


EMD, DHC ,OTE, OP1D,0P2D, OP3D, OP4D, OPSD, OPED, 0 ;D-MODE EXERCISER *# 


033576 EMVO36: 


.SBTTL PROGRAM DEFINED COMMON TAGS 
: VARIABLES 





027005, 104SS2, 111730, 000555 ;RANDOM EXERCISER OPERAND LONUM 
102337 , 166330, 007025 , 021553 ;RANDOM EXERCISER OPERAND HINUM 
175463, 030712, 105726, 124064 ; 


002372 000000 FPPOPS: ‘WORD 0 : PS SAVED HERE AFTER TRAP 
fee foe pores ef is 
O0e402 000000 : WORD O ‘SOFTWARE FEC 
Seige eee WORD 8,0,0,0 t ROROMARE FLOATING POINT ANSWER 
000 WORD 0,0,0,0 ;SOFTWARE FLOATING POINT ANSWER 
127 WORD 
WORD 
WORD 


te 
A 
: 
a 
e 
: 


i 
cS 
: 
5 
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56607 002361 070707 156607 , 002361 , 070707, 061111 ; 

*0 062451 003505, 134261 , 062451 , OS2S2S ;EXTRA RANDOM OPERANDS 
111111 102466, 123456, 111111,101010 ; 
060612 076103, 000346 , 060612, 12eS2S2 ; 
177777 044100, 112400, 177777 , 000006 ; 


se 


wo 
-_ 


OPe: 
OP3: 
OP4: 
OPS: 
OP6: 
hopeo: 


ag 
Pe 
. WORD 
“HoRD 
“WORD 
“WORD 
“WORD 
“WORD 
ie 
“GORD 
“WORD 


NUMBER 
;A=0, Be0 


3A ’ 
:NO SHIFT REQ’D 
pew 


wy be TRACING wenOTAL.N BEEN 

p 

C 

8 © ENABLED 
0 ; 

i 

6 

0 


foo Dean few Boe iin feo baw fee fae Ga fae Po bh Pe 
— 


BEIFRLSE 


© ©@ ce Se ce of oe oe oe 


He 


OW, ENABLED 
: TOT R 
Ro eto VOR B=0 
VERE LOW ENABLED 
*UNDERFLOW, ENABLED 
; TOTAL NUMBER 
"NUM A= 
iDEN 7 
OVERFLOW ENABLED 
*UNDERFLOW, ENABLED 
TS, AT ERROR, STORED HERE 


TT a a tetettntentntetettetet ata 


FREE 
GRC 


ee 
Re 


G8 598053 bonnes 


eee 
. 
: 


ee ee ee ee 2 2 ee ee eS 


elejolelolol=) 
CR LankanLanLaienion 


: 


o 
4 
OoeOo0o0oO 


tatatatat 
SERIES 


PROGRAM/START OF PASS 
(12><12><12>"MD-11-DQFPD-A...” 


z 

Pe 

re eects 
Bo 

=3 


— 


-ASCIZ “POP-11/6X F.P.U. ADD/SUB/MUL/DIV EXERCISER™<15>< 12> 


sad 
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gen pai pate 

1 

| 

a i a 051501 NWPAS1: .ASCIZ <15><12>"PASS #” 

ae: 0201 
| 
| 
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D@FPDA.P 09-FEB-77 10:32 START OF PASS ROUTINE 


-SBTTL START OF PASS ROUTINE 
EVEN ;START ON AN EVEN BOUNDARY 
FI ia iaiaiaiaial ich 5-5 haba $5 tlelelebelelelelaiaiahaiainigl-¥-$-$-1--$0-lh-tah lal-t-hb-t-5-byt-igh-+-+-+-+-t-bt 4 


ERENCES AS ABSOLUTE 
errr irrremvevnrerrr re rr irrrrrrierritrri rr rire 


START: 
Eh, is 1S Oe 





012706 MOV AG, s FIRST LOCATION TO BE CLEARED 
CUR ae pee CLEAR MEMORY LOCATION 
o> 
3 O12 -nattttle a eis aris eo THE Fate POINTER 
002754 012737 rs MOV fa OT VECTOR FOR SCOPE ROUTINE 
0c Berar Rov ae ne CTOR FOR ERROR ROUTINE 
e732 MOV aT VECTOR FOR TRAP CALLS 
; | POV eee POR, FAILURE VECTOR 
ee Rov ee baa te a a mons 
Eos fae Sa = 
i O03060 912737 Hoy s., hike ron 
ie are ee a wale fqn waste 
1280 003074 0137% a MOV “aheRRVED =(SP) $3 
153 gles 815535 NOV 4 A GOR SWICH REGISTER 
Hes GUS Barer me SRI ee te ee 
128s i 1012 BNE ‘ ::BRANCH IF NO TIMEOUT UT_ TRAP, OCCURRE U RED 
iBee ret seat? 003142 64S Rov Bes, (sp) Bale ro reat 
ea Bisiss sige 00178 y 1146 65 HOV asiiRE , spray! POINT TO SOFTWARE SWR 
ese 1 I 66S MOV (SP)+,a8ERRVEC ;;RESTORE ERROR VECTOR 
Oosiee Tyra reed 001223 Brie pre. SENVM HET ucER sf sige UNDER APT 
1e9 oo3i7e Bieea 001224 001146 mS MOV G, SWR ENO, NO USE APTS APT SHITCR REGISTER 
1299 ; 
HE onsen ouzrzr cezzn coum ASN” Smet PSRETEDRE™™ OPE, ach 
1302 003212 005037 000246 CLR aeFPPvEet+e2 *NEW PS AT FPP TRAP 


a 


ee ae a ee ae ae ee a ae ee Be fe ae ee ee ae me es ae ee ae ee Be ae me me Ps ee Be Be Be Pe Pe me Pe Pe Pe me Pe Pe ae ee Pe Pe Pe Pe 


03 


B 
PPL OS FEBS PY 1OsSe | NETTALIZE THE COMMON Tacs © 


Bombe ; 





-#CLEAR COUNTERS FOR TRACING INFO 
1 go2s2b ov #ADDCO, RO FIRST LOCATION TO CLEAR 
MOV aes Ri * 26(8) WORDS 
2s: ck (ROS+ : AND 
Br 1 R1,es 300 AGAIN 
310 104401 002622 TYPE  ,BGNMES ;1D MESSAGE AT START 
3le SOOOPOOLOTTTTATATTATTETTTLTATTTATTAAAAAATATAAAAAAA LAAT ALATA AAT AAAS AAAS 
33 ; MESSAGE ON WHETHER OR NOT HFP UNIT IS PRESENT 
315 MED RWHAM I ;WHAMI_INTO RO 
316 BIT be 1TO4, RO -IS THERE A HFP UNIT ? 
31 BEG : 
318 YPE 68S : INDICATE EPLI-E PRESENT 
Poe i i POISATE NO PPLI 
BR WPAS GO FOR SUBPASS INIT 
68S: JASCIZ <15><12>"# FPLI-E HFP UNIT PRESENT #°<1S><12> 
69$: .ASCIZ. <15><12>"* NO FPLI-E HFP UNIT - ALL TESTS WFP ONLY #°<15><12> 





- EVEN 
SSOITALLILTATTATATATATALAT ALTE ALEA TATED ATAELETAT TELA EEE AAA A LALA ELSA 


5 HERE AE AE EAE SEE ab AE AE A a a a a a a a a a aa a a aa a a Ha aa 
5 HEHEHE HHHEHEHiHIHEHEHGHEIHEHEHEHEHEIHHHHHEHEHHHHHHHHEHEHEE 


BARTS SAeFECo SOBA ROORO RTE OOS 


003404 012706 001100 NEWPAS: MOV BSTACK, SP sRESET STACK PTR 
003410 032777 010000 175530 BIT 881712, aSWR ; INHIBIT gTATUS TYPEOUTS ? 
0416 10i BNE Hie ‘BR IF YE 
022114 022108 CMP SENOCT, SEOPCT TIME FOR A MESSAGE ? 
003426 001011 BNE SUBPAS NO, NOT YET 
003430 104401 002723 TYPE NWPAS | "PASS 8” 
M4 01374 001210 MOV $pass, -(SP) “PASS COUNT INTO ... 
00521 INC (SP) t J=N RANGE 
g } 009 MIE 6,0 TPE PEITS. NO LEADING ZEROS 
003446 104401 001177 TYPE  ,$CRLF “END THE LINE 


CO3 
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ee 


3 5 SE AE AE aE aE SE ME aE a a a a aa a a aa a aaa 
“NEW SUBPAS ERS HERE 
38 PTeCTTITTOVTTITT TTT TTT TTT TTT TT iT TTT tii ti tt iti iti iti tii t itt} 
SUBPAS: MED RWHAMI iGET WHAMI INTO RO 
BIT $BITO4, RO =HFP PRESENT, O=NO 
BEQ 20$ itr NO HFP, a WARM ONLY 
,RFLAG GET FLAGS INTO RO 


#SWO1, JSWR ;SWOl: 1=HFP OR WEP TEST ONLY 
1$ ; O=ALTERNATE HFP/WFP PER PASS 


#SWOO, 2SWR ;SWOO: 1=WFP ONLY 
; CLEAR HFP ENABLE FLAG<S> FOR WFP 


:SET HEP ENABLE FLAG<S> FOR HFP 
: REWRITE FLAGS 


; TEST WHO'S ENABLED: , WARM 
SET APPROPRIATE READER: " 


;"HOT: * 


;"WARM: ™ 
;ALL DONE, RESET TEST NUMBER COUNTER 


Bas bo fhe ps Pee Pas b= Ge 


Sti ci RE RRR RRERE is ei baat cal 


fas ee 


o- OW OOo oO-4 


S35 Am AaBame mo wm 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


OQ 
_ 
> *] 
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DOFPDA.P11  09-FEB-77 10:32 Tl EXERCISE ADDF, ALL INTERRUPTS ON, ROUNDING MODE 
ie H itesT 1) EXERCISE ROOF, ALL INTERRUPTS ON, ROUNDING MODE 
130 i jvestedvensuueatentennentenekatasennenssnsanesnbaneaesanensoaean 
1336 ’ T1, EXPFEA i ADOR OF INSTR BEING TESTED 
} v #007400, SFPS ise! IE BITS IN FORTRAN ANSWE 
Es meaty R OER teLR FORTRAN FEA 
1 CLR FPS CLR FPU FPS BUFFER 
1399 : atk FER tet EpU FER BFrER 
Es i Sth P RANDLE gE RANDOM I DATA 
140 SR RY, SPOLSH “ENTER Si 
1402 rene , LONUM Eloi Ppbabe ON STACK (LONUM) 
1403 002436 SPUSH  ,HINUM : PUSH OF ot NBTACK (HINUM) 
10s 002416 $oPx , ANS2 ‘POPs WORDS AND EXIT POLISH MODE 
140? roi 002400 MOV Sst) ; DISPLAY FLOATING POINT STATUS 
thi bbe ez aor LF LONUM, i OAD Be8’ WE THB RANDOM NURBER 
141) BOseye i9SFa7 baSaae t Aree Ac LORD Bed WITH THE con ee 
1412 003676 170127 007400 LDOFPS #007400 : TURN INTERRUPT ON 
1413 003702 012737 003710 001110 NO #. +6, SLPADR RESET L $s 
init ; SAKSREASRKERESE SERRA RERRRE ERR RRE RRR RRRRERRRE RRA ER ERA EES 
1417 003719 172600 sha LOF ACO, Ace ; LOAD afc INTO ace 
ee eae eae 
1421 003728 eat Q AERRI : IF OK 
1ge 0037 30 iea? 002406 STF AC2, ANSI SAVE FPU ANSWER 
ies 003 104001 E l FPS ERROR 
1425 005737 0024 RR1: TST p ; T SET ? 
Kise es Barr, corwooemms gy, MEARE Geren 
ie? 003744 170337 002364 STST FEC YES, CHECK STATUS 
14 903750 923737 002364 002402 CHP FEC, SFEC i CHECK THE FLOATING EXCEPTION CODES 
43h 003760 104023 ERROR 23 FEC IS WRONG 
1433 003762 023737 002366 : CMP FEA, SFEA CHECK FLOAT 
1434 003770 001401 wut hg BEQ fet OREINGH pane PC 
14 003772 1 ERROR 23 “WRONG ADDRESS IN FEA 
14 ? ATST1: CMPF  AC2,AC3 .C FPU ANSWER TO FORTRAN ANSWER 
1438 Bae 178000 cece 0) i OPY FL Cont ING CONDITION CODES 
1440 edna ; NSATE FOR FORTRAN f 
i442 es00e 162737 poss, oge40 ie ace AL TDECREMENT FPU ANSWER 
1443 004014 005637 002406 SBC ANS 1 : 








a ee +; 


FRU ADD /SUB/NUL/DIV oP ine a MACY11 —— 


| DQFPDA.P11 09-FEB-77 1 


AEND1: 


09-FEB-77 10:34 PAGE 32 

EXERCISE ADDF, ALL INTERRUPTS ON, ROUNDING MODE 

eee apt: Float TING CON TTION CODES 
BEQ AEND1 fam oF hee ihe 

STF AC2, ANS! 

ERROR 5S ve aD FORTRON DISAGREE 


CLR FPS ; ;CLR FPU FPS BUFFER 


03 





FPU ADD/SUB/MUL/DIV RANDOM EXER MACY11 27(1006) 09-FEB-77 10:34 PAGE 33 
D@FPDA.P11  O9-FEB-77 10:32 T2 EXERCISE ADDD, ALL INTERRUPTS ON, ROUNDING MODE 
14Se 33 PEBRPSSRELLKSLSSKSSKERHSAES GRAM EARFAEYSLSKSRHRARSKELASERELEE EEK E 
1453 TEST 2 EXERCISE ADOD, ALL INT NG MODE 
1 es PPPPETeTTTTTTTTTTETTTTT TTT Te TTTTI TTT Tt iti t i ttt ttt iit ttt tT 
Renee arial 
1 1 Rov BARET2 EXPFEA :RDOR OF INSTR BEING afESTED . 
i ee | a 
se Be i aoe? 
i460 OONO? vine ete EPO FER 
146 atte CLR FEC :CLR FPU Fe BLFrER 
th is SR BFA ieee RANDOM iheur DATA 
1464 110 . WORD LO HINUM : 
1468 114 JSR ‘ jENTER POLISH 
iS is Gey eee ee He 
1469 004132 023612 O0e416 SPOPX  ,ANS2 :POP 4 WORDS AND EXIT POLISH MODE 
147 13% 0 MO :D FLOAT INT STATUS 
Lire Bits i7bie? DYE20C LOFPS O iLOAD FPS, RTERRUPT DISABLE AND FD 
17 Boise i7ess? Obese LBD HI ancl LOAD AC HTH 8 Renoon NUMBER 
1476 eats 1a LOFPS TURN IN TS ON 
1477 004166 012737 004174 001110 MOV #. +6, SLPADR RESET LOOP ADDRESS 
i i § SKSKKHASKARSRSASSERAESRELRESRERSRRRERERRERERRE ARERR EARRAEHAEE 
1481 OO4174 172600 LOO aco, Ace ;LOAD ACO INTO AC2 
1482 004176 172201 ARET2: ADDD ACL, ACE : 
1463 004200 170237 002362 a STEPS FPS j STORE ee POINT STATUS 
Se ee om a ee 
1487 ae 104017 ERROR ise i Pps ERROR 
1489 OO4222 005737 002400 AERR2: TST SFPS ERROR BIT SET ? 
1490 004226 100014 L aTsTe NO, DONT GET FEC/FEA 
igs 004230 170337 002364 STST FEC YES, CHECK STATUS 
1 OO4234 023737 002364 o02402 CMP FEC, SFEC ;CHECK THE FLOATING EXCEPTION CODES 
1494 004242 001401 BEQ 1 ; IF OK 
\ige oo42e44 ERROR 2 “FEC IS WRONG 
1 OO424% 023737 002366 oO02404 1S: CMP FEA, SFEA ;CHECK FLOATING PC 
1498 254 001401 BEQ atste : 
1499 256 104027 ERROR 27 : SS IN FER 
1501 OO4260 173702 ATST2: CMPD AC2,AC3 ;COMPARE FPU ANSWER TO FORTRAN ANSWER 
1506 be 470000 CFCC :COPY FLOATING CONDITION CODES 
1 264 0014 BEQ RENDZ : CHECK 
BE ome ireey mous (ore eg Te a ancen 
1 1 002414 SUB #1. ANS1+6 ‘DECREMENT FPU ANSWER 
128 654505 iE? 3 ieayeS Sec ANS1+4 : 





3 
5 


vo 
~ 
ee 


09-FEB-77 


Boees? | SosHOe 


002406 


Ww 
— 


88 

B BRRBSS 
G3 

B 

£ 


NOU atte to] 
999999 
eg 
see 
5 
ge 


es Re ee 
WUTUNUNT nu 


Oo b= be Bo RO bm Ds 


JMUL/DIV Ron XER MACY11 — 


G03 


ema gl 10:34 


EXERC 


sec 


Page 34 
SE ADDO, ALL INTERRUPTS ON, ROUNDING MODE 


oaiee 
ANSL,AC3 COBY K_ANSWERS AGAIN 
Y EL OBT iN CONDITION CODES 
AENDe ; 
AC2, ANS1 ;SAVE FPU ANSWER 
6 ;FPU AND FORTRAN CISAGREE 
FPS ;CLR FPU FPS BUFFER 
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DOFPDA.P11 O9-FEB-77 10: T3 EXERCISE ADDF, OVERFLOW AND UNDERFLOW INTERRUPTS OFF, ROUNDING MODE 





18 ESS ere Aaa ater OU Rosen INTERES OF, RoOING moo 
' es i jieterhenesneeeeeneennerstnaheceeeneaneeennssaseenvesssentensags ’ 
1 ResaB ita ; V SARET3,EXPFEA  ;ADOR OF INSTR BEING TESTED 
ie Re be seer Ae 
i CLR $ A CLR FORTRAN 
1258 kia Gosts7 th Fee bELR FEY Fee BUFFER 
1528 004 CLR FEA CLR FPU BUFFER 
1529 ra JSR PCARANDLS GET RANDOM INPUT DATA 
1831 19 ites 2 ieee RA SPOLSH “ENTER POLISH MODE sical 
ies ea teases seueH LON POH & aT BRK {HENUM) 
1 $ADD "ADDRESS OF FORTRAN ADD 
1535 OOW26 023612 SPOPX  ,ANS2 :POP 2 WORDS AND EXIT POLISH MODE 
153 004432 013700 MOV SFPS_ RO ;DISPLAY FLOATING POINT oagntus 
el (bat) 
1238 aa {5oas? L LONUM, *LOAD PS wt NB RenOoh RCHBER 
leu; owes | 17593 3 LF mes Acs iD RCA METH THe cu 
1SHe Pant h Ole? t OF Ps : TURN PNT ERRUP TS BN. EXCEPT OVERFLOW AND UNDERFLOW 
1543 1 004470 001110 NOV #.+6, SLPADR “RESET LOOP ADDRESS 
ine 5b aE AE 4 9 9 9 9 0 0 0 A a a a Gd dd at 
ley SBare eee mers: Hie EERE aaa? 
ey 004474 170237 902362 leneie : STEPS oe STORE FLOATING POINT STATUS 
1551 a a4 001403 - BEQ ares *BRANCH IF OK 
1553 ppaeia 104601 = ERROR end i PPS ERROR 
1555 OO4S1&6 173702 ATST3: CMPF § AC2,AC3 COMPARE FPU ANSWER TO FORTRAN ANSWER 
les Bhs nN EE ncwoy  iere ete CSITION Com 
158e on i COMPENSATE FOR FORTRAN TNACCURACTES 
1866 tea 1 Bps00i 002410 ae 81 ansi+2 i BECREMENT Fr BU INSHER 
1 ie ited CMPF  ANSI,AC3 -CHECK ANSWERS AGAIN 
ies ee a et SSer FLOATING CONOTTron cones 
1 Dowebe 174237 002406 STF AC2, ANS! SAVE FPU R 
1 6 104005 ERROR 5S :FPU AND ECR : Then DISAGREE 
1568 OO4SE0 005037 002362 AEND3: CLR FPS CLR FPU FPS BUFFER 
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FPU ADD/SUB/MUL/DIV RANDOM EXER MACY11 5 ene O9-FEB-77 10:34 PAGE 36 
D@FPDA.P11 O9-FEB-77 10:32 EXERCISE ADDO, OVERFLOW AND UNDERFLOW INTERRUPTS OFF, ROUNDING MODE 





1570 PTT GT TT EXERCISE ROOD OVERFLOW PRD UNDERFLOM INTERRUPTS. 

1 t ETEST 4 EXERCISE ADOD, OVERFLOW AND UNDERFLOW INTERRUPTS OFF, ROUNDING MODE 
1 sa reel sencucnautatacnabectschusctacdenencsencsineaeneacatsnsiate 
14 SONEEe Be737 720 002 ts: mov BARETY A TES 

ieee Bers fucrar fescge BuO ty SaneaRErPS SPT as fu Ponto mee 

1 CLR C 

1577 CLR SFEA CLR FORTRAN i 

1578 OO461 CLR FPS 

1579 364 CLR FEC ee PU FB 

1580 A 

1581 RANDLY GET a Bara 

1582 .WORD  LONUM, HINUM : 

eis sD Fhe san 
128 ; Hart * HINUM : i T cK CHIMUR) 
1586 OO04652 Oe SADD ADDRESS OF 

1587 OOMeS4 SPOPX  ,ANS2 POPE HORDS AND EXIT POLISH MODE 
1589 FL INT 
Le Ee A A Le 
E92 74 HI AAC ;L080 TH A 

fee Geszao Hes Seats RA Beer 0 

1ee4 1701 BS : Cae TS EXCEPT OVER AND UNDERFLOW 
1595 004710 012737 O04716 001110 MOV #. +6, SLPADR RESET LOOP ADDRESS 


5, He A AE AE AE A aE A a a a a a a A a a a a a aaa aa a aH EEE 


Sparen 178801 prety: bBo  ACTTAGS i ep acl BY Ace 


eax 


601 O04722 170237 002362 STFPS FPS ;STORE FLOATING POINT STATUS 
002362 002400 NP FPS. SFPS : CHECK 
1 Q aTsty : IF OK 
174237 002406 D ,ANSL FPU ANSWER 


OO474e §=104017 ERROR 17 {FPS ERROR 


7 17ea06 ATST4: ere AC2,AC3 SNE onthe ako FTO FORTRAN ANSHER 


SEU RR ERS eS 
ee 
z 





1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


10 T FOR FORTRAN inACRE IES. 

gi? 004752 174237 002406 SPOR i * SAVELEPU ae 

ble ree 162737 neat 002414 #1 bi a :DECREMENT FPU ANSWER 

14 + 

cis Biirrs Beey Hietlp te 

pie iran, ObeNOs Kee siaaies if FL atts CONDITION CODES 
a Bost balsas § NOY ade cae 

61 10 174237 o02406 TO AC2, ANS! SAVE FPU ANSWER 

620 O0S014 104006 ERROR 6 :FPU AND FORTRAN DISAGREE 

bee 005016 005037 002362 CLR FPU FPS BUFFER 





JO3 








FPU ADD/SUB/MUL/DIV RANDOM EXER MACY11 27(1006) O9-FEB-77 10:34 PAGE 37 
DQFPOA.P11  09-FEB-77 10:32 TS EXERCISE ADDF, ALL INTERRUPTS ON, TRUNCATE MODE 
ips Te eclSe ADF ALL INTERRUPTS ON, TRUNCATE MODE 
he, a ysaempientce nk mamta >= 
iP Nie 156 002376 BARETS.EXPFEA ; OF INSTR BEING TESTED 
its 1 aah 002400 MOV #007440, SFPS iSET ie alts IN FORTRAN ANSWER 
ich Seema Beene vate LR SEE ‘eR FORTRAN FER 
is Gees few fetes ae ih FBG EEE BEER 
1 CLR F CLR FPU ER 
1635 nia foes 4 SR PC RaNOLE GET RANDOM INPUT DATA 
ley JSR Ra SPOLSH “ENTER POLISH MODE 
1638 005100 023562 O0e426 SPUSH  ,LONUM + PUSH ON STACK (LONUM) 
ibe Belts fey by inne i 
164 005112 023612 Oo02416 SPOPX ,ANS2 :POP 2 WORDS AND EXIT POLISH MODE 
1643 005116 O1 002400 MOV ;D FL INT STATUS 
1644 1 aier gx0000 LDEPS aoabon ee SABLE 
IEE ise | % L HI Rel it ma lita p 
1647 005 i= 13533) poSaie L Anee Ac3 iL Bed HET ae CUR THe SUM 
1648 005142 170127 007440 LOFPS #007440 Loe INTERRUPTS ON 
1649 005146 012737 005154 001110 MOV #. +6, SLPADR RESET LOOP ADORESS 
5 SKKKKSRESRRRRSSEEREEEEERARERARA ARERR RERRRRRER ARE RA RA AAA RAAEE 
ee mers: Bir SORE HOA aet SIN, 
170237 00232 ouo " STEPS FPS’ * STORE FLOATING POINT STATUS 
rate Sr TF OK 
1658 174237 002406 STF AC2, ANSL SAVE FPU ANSWER 
i 104001 ERROR 1 : 
tes 002400 AERRS: TST SFPS 
1 eb0i4 BPL ATSTS ERROR nT GET Pad FECVFEA 
1663 170337 002364 STST FEC iN CHECK STATUS 
ieee rate 002364 o02402 HP ect ; CHECK THE FLOATING EXCEPTION CODES 
bb? 1 RROR *FEC IS WRONG 
1669 002366 O02404 1S: F EA ; CHECK TING PC 
es eS TG an as 
1671 104023 ERROR + WRONG SS IN FEA 
1673 173708 ATSTS: CMPF  AC2,AC3 ;COMPARE FPU ANSWER TO FORTRAN ANSWER 
1674 17 0000 cre : COPY Re cre CONDITION CODES 
ie 74237 if? . Ace. ANS va ForrraN 
1678 be2o3? Bpo0ne 002410 ADD #1 ANSis2 tPRCRENENT FRU A FPU ANSWER 
1679 005537 002406 adc ANS 1 








2 
g 
° 
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—e 
roo 
owe 


SaaS | 
G eee 
an 

a 
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10:34 PAGE 38 
ISE ADDF, ALL INTERRUPTS ON, TRUNCATE MODE 
ANS1,AC3 - CHECK RS N 
COPY FLOATING CONDITION CODES 
AENDS : 6 
#2 ,ANS1+2 *DECREMENT FPU ANSWER 
ANS1,AC3 ; CHECK N 
th a FLOR ING CONDITION CODES 
AED ANSI OE EPL ANS 
5s tBu AND FOR TREN DISAGREE 
FPS CLR FPU FPS BUFFER 


3 
é 
y 


FPU ADD/SUB/MUL/DIV RANDOM EXER MACY11 27(1006) O9-FEB-77 10:34 PAGE 39 
. 0:32 Té EXERCISE , ALL INTERRUPTS ON, TRUNCATE MODE 


4 $3 BRFSELAREREARKRE SS LK SASERALEASRSARSASE SSS GHRARSHRERSRAERER RASH ESS 
% TEST 6 ON, TRUNCA 
es PSTPOTPTTTTTTTTTTETSTT TT TTT PETTITT Tet tt tT ett TTT tri Tit t ttt try 


téTe: 


1 
1 
1 
1 NOV SOOPER OPS iSeT Je eLye JN FOR AN ARSHER 
i a2: tet FORTRAN Fee 
| oe | eee 
i Sch FER vy EET RANDOR pet Bare 
i Oo a 
, LONUM i ENeH 4 ON STACK (LONUM) 
” HINUM ;PUSH OR TACK (HINUM) 
, ANS2 :POP 4 WORDS AND EXIT POLISH MODE 


3 
B 


; DISPLAY FLOATING INT STATUS - 
it Oe Fes uth A 


SO a ee eee 
OAD Mi 


= 
& 
8 





og 
: 


ANS2, AC3 : TH THE SUM 
1718 #007640 Tu INTERRUPTS ON 
1719 MOV 8.46, SLPADR *RESET L $S 
i 1 5 0 0 A 9 0 0 9 0 a 2 a a a a a a 
1723 OOS462 172600 LOD ACO, AC2 ;LOAD ACO_INTO AC2 
1724 OOS464 172201 ARET6: ADDD ACL, ACe "ADD ACL BY AC2 
7es 170037 002362 STFPS FPS i STORE FLOATING POINT STATUS 
1 002362 002400 CMP FPS. SFPS > CHECK 
1727 1 BEQ AERRE “BRANCH IF OK 
1728 OgeaUe 1 002406 STD AC2, ANS! SAVE FPU ANSWER 
1769 104017 ERROR 17 FPS ERROR 
1731 005510 002400 AERR6: TST “ERROR BIT SET ? 
te 005514 10014 BP. Scie = NO Bont oF FEC/FEA 
1733 005516 1 002364 STST FEC YES, CHECK STATUS 
1 CMP FEC, SFEC *CHECK THE FLOATING EXCEPTION CODES 
ie eat fro CS WF OK 
173 FEC IS WRONG 
1733 1S: cHe FEA, SFEA ; CHECK FLOATING PC 
irae ERROR 27 > WRONG ADDRESS IN FEA 
174 ATSTb: CMPD AC2,AC3 ;COMPARE FPU ANSWER TO FORTRAN ANSWER 
1744 CFCC ;COPY FLOATING CONDITION CODES 
176 BE AEND6 RC HERS CK 
17ub i COMPENSATE FOR FORTRAN ENACCURAC ES. 
im ADD #1, ANSI+6 tPRCREMENT TBO ANSHE INSHER 
1 ADC ANS 144 





FPU ADD/SUB/MUL/DIV RANDOM EXER MACY11 1 oe O9-FEB-77 10:34 PAGE 40 
DQFPDA.P11 O9-FEB-77 10:32 EXERCISE ADDD, ALL INTERRUPTS ON, TRUNCATE MODE 


goer fLoat Ne CONDITION CODES 


; DECREMENT ANSWER 


;CHECK ANSWERS AGAIN 
: COPY FLOATING CONDITION CODES 
; FPU ANSWER 
*FPU AND FORTRAN DISAGREE 
CLR FPU FPS BUFFER 





qenceRee aaa ANN 





FPU_ADD/SUB/MUL/DIV RANDOM EXER MACY11 er 1008) O9-FEB-77 10:34 PAGE 41 
D@FPDA.P11 O9-FEB-77 10:32 EXERCISE ROOF OVERFLOW AND UNDERFLOW INTERRUPTS OFF, TRUNCATE MODE 
33 a aaa og ge pong ye AHHH 
jATEST 7 EXERCISE ADOF, OVERFLOW AND UNDERF LOM INTERRUPTS. OFF, TRUNCATE MODE 
SS a a At 


ttbtetesneneusnenecsecessenteccnensesssssets 
SCOPE 


SOOO SFPS ae ARSUER 


SEE. 


9 
. WORD 
JSR SPOLSH ; fe 
SPUSH  ,LONUM ; TACK (LONUM ) 
SPUSH * HINUM ; ACK CHINUM) 
SPOPX , : 


ANS2 ete tiene 


+817 


Haier 








SSE UR CONS See GRRL BES IR REM B SIS ee 


ee ee ee ee ee ee ee ee te ee ee ee ae ee ee Be ee Be ee ee ee 


iad r5c3y te HINUM: ACL Ht eo METH HS as NUMGER 
errs ts 10 001110 HOV 8. +6, SLPADR ee Mbt a ee ow Pe 
5 HALELRSRUSARRERESLERL ERLE SKKSERLEARSLLRARREEE 
006019 172600 <3 LOF CO, ace LOAD ACO INTO AC2 
4 17637 902362 ere STFPS ‘ Le POINT STATUS 
362 002400 CMP FPS, SFPS 
006026 001403 BEG BIST? ; 
Beet tose, CON ERROR I BA ee MER 
(rooms ATST?: ere wel ele Fone FPU ANSHER T it FORTRAN ANSWER 
eth i COMPENSATE FOR FORTRAN f eels IES. 
ee reaea 002410 fob al fwsi+2 ANSWER 
8 1 poedoe CMPF ANSI, AC3 ; CHECK AGAIN 
81 7 CFCC COPY FLOATING CONDITION CODES 
814 1414 BEG REND? : I 
1815 ae 002410 SUB 6 ANSI +2 : DECREMENT ANSWER 
181 Oe 1 Bpeuoe Ghee = ANSL, ACS ;CHECK ANSWERS AGAIN 
1818 119 i ( cece a ; COPY FLOATING CONDITION CODES 
B28 reat ath 002406 TF 2, ANS! i BOVE FP 
i6el 120 104005 ERROR 5 :FPU AND FORTRAN DISAGREE 
1823 006122 005037 002362 AEND7?: CLR . FPS ;CLR FPU FPS BUFFER 





. 
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DQFPDA.P11 O9-FEB-77 10:32 17 EXERCISE ADDF, OVERFLOW AND UNDERFLOW INTERRUPTS OFF, TRUNCATE MODE 


1824 


aa 


P= 0 b— = FO FP he ee 


fa ee be be me Ba ee Pe Bb ht ee Oe ee ee en Pe ps ee ee ee 


04 
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-Pll 09-FEB-77 10:32 T10 EXERCISE ADDO, OVERFLOW AND UNDERFLOW INTERRUPTS OFF, TRUNCATE MODE 


ke 
; RTEST UNDERFLOW INTERRUPTS OFF, TRUNCATE MODE 
italia 


téT1 





ERERERPR ERED Ld Shae tubal aubaiiaue see Spe Re ANIM Tia wisi 


0061 
Goel 0023 MOV BARETIO,EXPFEA ; OF NSTR BE NG TESTED 
Spe ian oe Ok SPEC > tRtR FORTRAN EEC On RAY ANSHER 
a tee Gee ak ies 1h Fontan FER 
160 364 CLR FEC CLR FPU Fe BErER 
164 CLR FER :C ER 
im TPhe0 ae ee 
JSR LOM HIN iENTER I 
002426 SPUSH  ,LONUM : 4 ON STACK (LONUM) 
OC 19 002436 SPUSH |HINUM : PUSH 4. ORDS ON STACK (HINUM) 
006216 atts 002416 $70. , ANS2 POP 4 WORDS pall ERI POL ISH MODE 
006222 013709 MOV SFPS,RO :D FL TING POINT TATUS 
esse 170 Piet LBD PONUR ACO iD pes METH A RYODU MIRER 
1 002436 LDD HINUM. ACL *LOAD ACL WITH A RANDOM NUMBER 
ees ives? 002416 LOD ASS ACS : BC9 WITH THE 
babe i7O1e? 004640 LOFPS 8004640 : INTERRUPTS ON, EXCEPT OVER AND UNDERFLOW 
1 006260 001110 NOV #.+6, SLPADR RESET LOOP $s 
5 REESE LRG EE EERE RREE CREEL EERE EEE EERE EEE ERERE EE EERE EEE 
006260 172600 ACO, AC2 ;LOAD ACO INTO AC2 
OOB2< 172201 ARETIO: ACL? ACS ; ADD acl BY AC2 
1 002362 me STrPS FPS j STORE FLOATING POINT STATUS 
pesoe th spe BEQ rretig , BRANCH IF OK 
006300 174237 O02406 STD AC2, ANS! SAVE FPU ANSWER 
006304 104017 ERROR 17 FPS ERROR 
006306 173702 ATST1O: CMPD AC2, ACI ;COMPARE FPU ANSWER TO FORTRAN ANSWER 
fess Bone Ei ccwoio tear tee “eTTION CES 
“COMPENSATE FOR FORTRAN [NACCURACIES. 
006314 174237 002406 STD ANS 1 : FPU 
20 90000} 002414 ROD #1 ,ANS1+6 INCREMENT FPU ANSWER 
0633 ett ADC ANS 1+2 
ek: 002406 ADC ANS 1 
002406 CMPD ANSI, AC3 ;CHECK ANSWERS AGAIN 
cece pit : COPY FLOATING CONDITION CODES 
gog002 002414 SUB He ,ANS1+6 *DECREMENT FPU ANSWER 
O0e410 Sac ANS1+2 
06 SBC ANS 1 
002406 CMPD ANSI, AC3 ;CHECK ANSWERS AGAIN 
CFCC ‘COPY FLOATING CONDITION CODES 
BEQ AEND10 ‘BRANCH IF OK 





{ 
' 
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D@FPDA.P11 O9-FEB-77 10:32 T19 EXERCISE ADDD, OVERFLOW AND UNDERFLOW INTERRUPTS OFF, TRUNCATE MODE 
1881 O06404 174237 O02406 STD AC2, ANS1 ;SAVE FPU_ANSWER 
tod 006410 104006 ERROR 6 ;FPU AND FORTRAN DISAGREE 
1 006412 005037 002362 AEND1O: CLR FPS ;CLR FPU FPS BUFFER 


O4 




















FPU RO0/SUB/AUL /DIV RANDOM EXER MACY 11 271006) O3-FEB-77 Jory PAGE 45 om a 
i ;  tgeeneecensneaersenennncrnnaneernnenanneeeae 
i ; ;uveueeueauecanensenneanensbentenacussasensesshsaneaneatesassan 
1 m a 376 MOV XPFEA TESTED 
168 Ne ppeae3 | bost0o nov a007400, SFP Srp iSET ie alte N FORT ARCHER 
1 CLR A : LR FoR Than FES 
i es oe Be oe ERE aire 
1 R ice FPU BFFER 
Roane Pies fel FEawene FEE RAIDER PEF for 
igs poaus?  posee i Re aie ‘ENTER 
1900 reeds secu , LONUM Has 2 BABY On ETacK ers 
1901 023562 002436 SPUSH | HINUM : PUSH & WORDS on Me 
138 reat 002416 $BHBy ,ANS2 ‘POPs BORDS ISH MODE 
1 0 V SF FL INT STATUS 
ime eee Tile? Poa Pores Sonny CDRs, TNTCRmuet Bishan 
1 i LOF LONUM, ACO TH A 
ioo9 i Bostic toe aca? tae be HiT 8 are nineeh 
1910 170127 007400 LOFPS #007400 INTERRUPTS 
i313 012737 006550 001110 MOV #. +6, SLPADR iRece SET ss 
iaie } RELRESAKSAHRAPSARRSASERSARLHERELERERE RAK REREE REEL EKER RARER REE 
1915 1 OF 0 NTO aCe 
i 1750) eRe: ie ae baa ie 
1918 023737 Bbesee 002400 oe FPS, SFPS ; pel mete 
1238 Bpeese 794259 oooune BP Rema en ve TF ep 
1921 006574 104002 ERROR 2 :FPS ERROR 
1 AERRI1: TST ; ERROR g 
{a5 a. Taa Bont GET FEC/FEA 
1925 STST FEC ves, OOMECK STATUS 
1367 MP FEC, SFEC HECK THE FLOATING EXCEPTION CODES 
1 gro § BRANCH HF OK 
1969 ERROR 24 :FEC IS Fon 
1 006627 002366 002404 15: CMP A, SFEA CHECK FLOATING PC 
ie ES i .o° seer. 
1934 
1935 006634 173702 ATSTL1: HPF AC2,AC3 ;COMPARE FPU ANSWER TO FORTRAN ANSWER 
1936 006536 470000 : COPY FLOATING CONDITION CODES 
1336 autor eo He FOR FORTRAN ieecnacls 
1 006642 174237 002406 SAVE FPU ANSWER 
1940 O06646 162737 000001 o002410 SUB ul sbisive :DECREMENT FPU ANSWER 
1941 006654 002406 SBC 





FPU_ADD/SUB/MUL/DIV RANDOM EXER MACY11 27(1006) O9-FEB-77 10:34 PAGE 46 | 
| DQFPOA.P11 O9-FEB-77 10:32 Tll EXERCISE SUBF, ALL INTERRUPTS ON, ROUNDING MODE 
1942 006660 173737 002406 CMPF ANS1,AC3 ;CHECK ANSWERS AGAIN 
1943 006664 170000 CFCC ;COPY FLOATING CONDITION CODES 
1944 ppeeke nS BEQ AEND11 ; H IF OK 
1945 1742 002406 STF Ace, ANS1 ; FPU_ANSWER 
ine 006674 104007 ERROR 7 ;FPU AND FORTRAN DISAGREE 
ea | 006676 005037 002362 AEND11: CLR FPS ;CLR FPU FPS BUFFER 
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FPU ADOD/SUB/MUL/DIV RANDOM EXER MACYL1 27( 1006) 09-F58-77 10:34 PAGE 47 
DOFPOA.P11  O9-FEB-77 10:32 Tle EXERCISE SUBD, ALL INTERRUPTS ON, ROUNDING MODE 
1320 5 Hee ee etiee CUBD ACL INTERRUPTS ON ROUNDING MODE 
is i jiebeetteesrensteesnecacteeniensentnsesecensvanienssnssseussiies 
1954 rae MOV SARET12,EXPFEA ;ADOR OF INSTR BEING TESTED 
ie fers HOY 2 'SFPS igeT I FORTRAN ANSWER 
1 RO ORS. ae Ponies ote 
1ge8 Dora aR OEEe igtR Eb FEC BUFFER 
1960 740 CLR FEA CLR FPU FEA ER 
1ses 0e7S0 tro Srna foe On Tier Dare 
1963 006754 JSR Ra SPOLSH ENTER, POLISH MODE eee 
tage Baez PR Seue *HINUM PU 4 ON eTack CAINUND 
196 006770 S$SUB ADDRESS OF FORTRAN SUBTRACT 
1967 006772 SPOPX  ,ANS2 POP 4 WORDS AND EXIT POLISH MODE 
1969 006776 002400 MOV SFPS, RO ;DISPLAY FLOATING POINT STATUS 
1970 007002 040200 LOFPS #8040200 * LOAD FPS, INTERRUPT DISABLE AND FD 
1971 007005 17e43? 002426 LOD LONUM, ACO : LOAD WITH A NUMBER 
1a73 OOPOIE I nee tO CNRS ACS iD AC ITH THE cu 
1974 rie ie nae oP eS SON ATERAUE TSN 
197% 007026 012737 007034 001110 MOV #. +6, SLPADR ‘RESET LOOP ADDRESS 
ive ; SKAKSEAARKSRREAEARREREASARERESRSERSERERRSRSRARERRERHAA HA REA EE 
138 007034 172600 LOO ACO, AC2 LOAD ACO INTO 
19a) DOVONB L7Roa ARETI2: SyePs Ppa TOE FLOATING POINT STATUS 
tees Bosos4 BbS3e5 on24o0 aap > EPS. SFps teneck FPS 
1983 007052 001403 BEQ AERR12 ‘BRANCH IF OK 
198 bo7054 rues? 002406 510 aCe, ANS ;SAVE FPL ANSWER 
1986 - 
i966 bovbee fepoty CoeHO0 RERRI2: TB Arete ERR OORT GET FEC/FEA 
1358 aii 1 002364 oer FEC YES, CHECK STATUS 
1991 007074 023737 002364 o02402 CMP FEC, SFEC CHECK THE FLOATING EXCEPTION CODES 
193¢ 007 102 001401 BEQ : IF 
1993 104 104030 ERROR FEC IS WRONG 
1995 007106 023737 002366 002404 1S: CMP FEA, SFEA CHECK FLOATING PC 
19% ports 140 BEQ aTsti2 } IF OK 
1997 1l6 1 ERROR 30 ‘WRONG ADDRESS IN FEA 
1999 120 173702 ATST12: CMPD  AC2,AC3 ; COMPARE R TO FORTRAN ANSWER 
goo 1g2 470000 cece : COPY FLORT NG CONDITICN CODES 
1 l 14 AEND12 * ANSWE CK 
2002 i COMPENSATE FOR FORTRAN INACCURACIES. . 
Be 67 188 173635 1 002414 21g #1 ANSI+6 i BECREMENT PETE NSWER 
2005 007140 005637 902412 SBC ANS1+4 


' 
' 
| 
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FPU ADD/SUB/MUL/DIV RANDOM EXER MACY11 27(1006) O9-FEB-77 10:34 PAGE 48 
DOFPDA.P11 09-FEB-77 10:32 Tle EXERCISE UBD, ALL INTERRUPTS ON, ROUNDING MODE 
oe ie 002410 SBC ANS1+2 
1S0 002406 SBC ANS 1 
2008 1S4Y 1 002406 CMPD ANS1,AC3 5 KECK Re asa 
sH08 160 4 CFCC ; COPY pLoeT CONDITION CODES 
1 1 1 BEQ AEND 12 ;BRANCH IF 
2011 007164 174237 002406 STD AC2, ANS! ; SAVE FPU ANSWER 
5013 007170 104010 ERROR 10 ;FPU AND FORTRAN DISAGREE 
opie 007172 005037 002362 AEND12: CLR FPS ;CLR FPU FPS BUFFER 


ciemienaial 
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09-FEB-77 
EXERCISE SUBF, 


10:34 PAGE 49 
OVERFLOW AND UNDERFLOW INTERRUPTS OFF, ROUNDING MODE 


Eta iUTEST 13, EXERCISE SUBF, OVERFLOW AND UNDERFLOW INTERRUPTS OFF, ROUNDING MODE 
5018 1 i jvevesnecaneenvenssententsedventesseentenssonaeaieanananeoneeay es 
ries nieaze 007332 002376 "MOV SARET13,EXPFEA ;ADDR OF INSTR BEING TESTED 
siss bores BHEA3s trees 002400 HOY 4 SFPS gel TS FORTRAN ANSWER 
RO Oppse ia Ponte CU ee 
he « 
cies torent Bei Qiks an FEE iG Feu Fee BEER 
ete? ie eae ISR Pe Rana. 2 te RANDOM iheur DATA 
“WORD OL HINUM 
2029 007250 004437 23560 JSR R4, SPOLSH ENTER POLISH MODE 
soap parsed Pesebs POeie> aes 1PUS! 8 Koeos ON STACK thanuR 
2032 007264 023634 $SUB “ADDRESS OF FORTRAN 
e033 007266 023612 O02416 SPOPX  ,ANS2 + BoP e HORDS AND EXIT-P POLISH MODE 
2035 007272 013700 MOV RO DISPLAY FLOAT Roll ata TATUS 
se bursas toed it OAD Ace" : 
1 LONUM , iL ee aco TH BRANDON 
2038 007 306 17es37 O0e4-% LDE HINUM, ACL LOAD acl i 
2040 Ooraie 470 aneS400 s 066 I nen a EXCEPT OVERFLOW AND UNDERFLOW 
tad 12737 330 001110 MOV #. +6, SLPAOR *RESET LOOP ADDRE' 
3 5, ME ae AE SE ae AE SH a a a a a a a a a aa aaa aE 
1 ACO, AC. , NTO 
Zoe eee 173201 ARET13: SUB Ae AES ert a By ace 
2047 007334 170237 002362 STF PS :STORE FLOATING POINT STATUS 
2048 007340 023737 0023262 002400 CMP FPS, SFPS : FPS 
er4g 001 BEQ aTsti3 ; IF OK 
e050 1 002406 ST AC2, ANS! FPU ANSWER 
1 1 RROR FPS ERROR 
2053 007356 173702 ATST13: CMPF  AC2,AC3 R TO FORTRAN ANSWER 
a 07 360 4 FCC Peerage CONDITION CODES 
ate AEND13 
cose “COMPENSATE FOR FORTRAN HRRSIERS Cle 
007364 174237 002406 STF AC2, ANS1 ;SAVE FPU 
2058 rae 162737 000001 002410 SUB me ;DECREMENT FPU ANSWER 
Ne C 1,AC3 sC 
Sted CFCC i CHECK FL OAYING CON CONDITION CODES 
es SE ne 
ea i ies -FPU AND FOR N DISAGREE 
2066 AEND13: CLR FPS ae FPU FPS BUFFER 


JO4 
POP AROL SUM ZO TY RONDO GER MACYIL 27/1006) POAC TEE GuBh- OVERFLOH AND UNDERFLOW INTERRUPTS OFF, ROUNDING MODE 


JH EEE HHHIHHIHHHHHIIHHHEHHHIHIEHHIHIHHEEHHHHIIHHHHEEE HE 
titest 14 EXERCISE SUBD, OVERFLOW AND UNDERFLOW INTERRUPTS OFF, ROUNDING MODE 
METiiiiiiitiiiitititttiittrtiitiiiiririrtiiririri irs srs pig 














2068 
a 
I téri4: 
sie at SSL GE” OF oH EA Ma 
an re eee EA Cane 
aS 1 Bai 
Shea Baas TER CBA TANO Yt uy ;GET RANDOM INPUT DATA 
onrete JSR RY, SPOLSH ;ENTER, POLISH MODE 
00780 east airs buen BBRBS BN eTReK CONN) 
ete SPOPX » ANS2 AROS FoRTRaN EXIT POLISH MODE 
he LOD ibheB8 COR Pho, PRTERAUPY DIsRaLe. Aro FO 
seat Hiroe) iferHs ie Ha ae Te i 
eas A7235% BB7222 oors10 L Bers 200900 aon NTEBRUPTS ON, EXCEPT OVER AND UNDERFLOM 
Be 172600 vn 
se Looe RETIN BPS FPS" ioe Font ine POLAT STATUS 
t CHP 


os 
— 


i Grucoes ae a «eee 
iy 
i 


362 
362 002400 FPS, SFPS 
aTSti4¥ BRANCH IF OK 
002406 


21 001403 BEQ 
102 174237 STD AC2, ANS! i SAVE FPU ANSWER 
103 104020 ERROR 20 FPS ERROR 
¢105 173702 ATSTIY: CHP AC2,AC3 ;COMPARE FPU ANSWER TO FORTRAN ANSWER 
10% 70000 COPY FLOATING CONDITION CODES 
si tnnccunac ies. 
2109 174 002406 iComPensh Ace ANG 
e110 000001 002414 SUB a1 ANSI +6 t DECREMENT FPU ANSWER 
11 O0e4 12 SBC ANS 1+4 
ell 00241 SBC ANS1+2 
sity iz ei aHeD aNet AC3 CHECK AGAIN 
elie ELE LA CFCC : + EOBY FORTIN CONDITION CODES 
1g rl BEQ AEND14 : IF OK 
il 1 002406 A AC2, ANS! SAVE FPU 
118 104010 oR 10 :FPU AND FOR DISAGREE 
2120 005037 002362 AENDI4: CLR FPS CLR FPU FPS BUFFER 
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Pll  09-FEB-77 10:32 TiS EXERCISE SUBF, ALL INTERRUPTS ON, TRUNCATE MODE 
3 ’ . ‘test 15 H HEEEREREREE CISe CUBE ALL INTERRUPTS ON TRUNCATE MODE , 
a i a nena 

1S: SCOPE 
002376 MOV Tl » EXPFEA ; ng TESTED 
002400 nov ZNO, Ke ANSWER 
29 CLR ae 
# eR FE ; Fe ree 
FS GER BRP pani 2 ta eee 
me ke 
atey , LONUM ‘Par Oh STACK (LONUM) 
” HINUM : TACK (HINUM) 
$SUB ADDRESS OF FORTRAN SUBTRACT 
3 SPOPX  ,ANS2 :POP 2 WORDS AND EXIT POLISH MODE 
4] MOV SFPS,RO s DISPLAY FLOATING POINT STATUS 
i LONUM, ACO if ace Noon NUMBER 
44 L BE HINUM- ACL He WITH A NUMBER 
ue tors | sooPadO 52 3 1 ee SNTERRUPTS ON 
2 001110 MOV 8. +6, SLPADR RESET L 
3 5 SKEKSELASRSKEESSSEELSRERARERRRERAEREEERRERRSREREREERAARLHEAEESE 
51 010014 172600 LOF ACO, AC2 LOAD 0,8C2 
2 010016 17320 ARETIS: SUBF  AC1,ACe iEUBTRACT ACL ACL 
SRG Ee HERE ooo =e Pee 1 lala 
cS 01 1 BEQ AERRIS BRANCH I OK 
5b 010034 17Me3? 002406 STF AC2, ANS! OVE EPL) ANSWER 
o7 10040 1 ERROR 2 :FPS ERROR 
59 o100Ne2 005737 002400 AERRIS: TST SFPS sERROR R BIT SE 
60 O1004%6 100014 BPL ATSTIS GET TRECUFER 
61 010050 170337 002364 STST FEC ves, CHECK STATUS 
63 910054 923737 002364 cO02e402 CHP FEC, SFEC CHECK THE E FLOATING EXCEPTION CODES 
ee bi 0064 104024 ERROR 24 FEC 1s Bron 

010066 002366 O02404 1S: CMP FEA, SFEA ;CHECK FLOATING PC 
68 010074 001401 BEQ aTstis ; F 
68 010076 ERROR 24 WRONG ADDRESS IN FEA 
71 010100 173702 ATSTIS: AC2,AC3 FPU ANSWER TO FORTRAN ANSWER 
72 010102 470000 ge oe cat CONDITION CODES 
es 010106 174237 O02406 me ATE FoR ponrane | 
% b101 16 teer 3 60000) 002410 ai Ansi+2 TRCRENENT PRU ENSWER 


DOFPDA.Pi1 77 | po ERERCISE SuBF ACL INTERRUPTS ON, TRUNCATE MODE 

2178 010124 173737 002406 CMPF ANSI, AC3 

13 he Eee «SC eS 
cle Gini He Siete eel aca 

He HE ERR BF moe eee lm cos 
g187 010162 104007 ERROR 7 | :FPU AND FORTRAN DISAGREE 
2189 010164 00s037 02362 RENDIS: CLR FPS -CLR FPU FPS BUFFER 
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furururururu 


Pen pee em ta Bes fh bs ee 


‘ 
+4'4 on 
Do 


BIKRKLORV= 


4 


\ 


pe eeey: 


ii riiiiitiiiiiittiiiiiitiiitiiiierticiiiiioreged 

t RTEST ie EXERCI 

jueeeeetessnnenesencsnses PorTePerrererTeertr rete ti tittr rr Tt tte 
376 


;ADOR OF_INSTR BEING TESTED 


al 






Der fa 
Ge3b12 002416 


egeseys seprnccerzceeg 
# 


Oyaie?  BNOoDD souae00 CoA 1 INTERRUPT DISABLE AND FD 
1753, BBBuSe HENUR ACL LORD RC] KTH A 
172737 O02416 niise, ACS iLORD 8 WITH THE SUM 
Arodss Biases 001110 #. +6, SLPADR iReCeT NTERMUETS 
; ER RELRAGGREGSRAEG RESALE REGRESS EEE SEERA RARER EERE E REESE 
ACO, Ace sh OR AGO I BCD INTO 8 aCe 
ARET16: ACL ACE 


LOD 
TEPS F TING. POINT STATUS 
2g: on eal 


AERRI6: TST SFPs ERROR BIT SeT_? — 
err Pee as iN Opteck Ss STATUS fig 


002400 


a ieee 


SSR SNS 
oo 
a 


aR 


223 325 Sk au SIGE 
ee 


fe Be ee ee fan Fe Pee be be [os Ga fe R= bh dee pee 


1 
903737 002364 002402 CMP FEC, SFEC ; CHECK THE FLOATING EXCEPTION CODES 
104030 ERROR FEC IS WRONG 
923737 002366 OO02404 1S: CMP FEA, SFEA CHECK FLOATING PC 
1401 BEQ aTstisé *BRANCH IF OK 
104030 ERROR 30 WRONG ADDRESS IN FEA 
173702 ATST16: CMPD  AC2,AC3 FORTRAN ANSWER 
ovig 470000 CFCC ae O CONDITION CODES 
{COMPENSATE FOR FORTRAN pant 
BiBiep i293 Seoot 002414 310 OTANST 6 tPRCREMENT FRU A FPU ANSWER 
10426 peec 3, oo24i2 ADC aNeI 4 
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maa 
73737 002406 CMPD) = ANS 1, AC ;CHECK ANSWERS AGAIN 
- iCORY FLOBTING CONDITION CODES 
REND 16 
pice 002414 ae TF ;DECREMENT FPU ANSWER 
S a 
002406 CMPD =s- ANS 1, AC3 
BEES ‘i NG CONDITION CODES 
AEND 16 
002406 STD AC2, ANS] 
E save an FORTRAN DISAGREE 
002362 AEND16: CLR ;CLR FPU FPS BUFFER 








FPU ADD/SUB/MUL/DIV ae EXER MACY11 4) aa O9-FEB-77 10:34 PAGE SS 
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2264 3 iteet 17) EXERCISE SUBF OVERFLOW AND UNDERFLOM INTERRUPTS. 
: KTE EXERCISE SUBF, OVERFLOW AND UNDERFLOW INTERRUPTS OFF, TRUNCATE MODE 
010516 | Hentedtennenuenueacasenesodssaneatenenaaennes 8b Sb Ab Sb ab Hb ab HH HH bb a a at 
1 MOV SARET17, TR sir 
OL FOV SOTHO ey Pett pits i For 
01 crn SEER 
: CLR 
Dloss0 j ch Fee a ile FER 
bite CLR F ;CLR FPU FEA R 
1 14 JSR ;GET RANDOM 1 DATA 
1 WORD Le HINUM ; 
1 JSR SH ENTER 
1 S$PUSH , ; § ON STACK (LONUM) 
10600 % SPUSH ,HINUM ;PUSH ON STACK (HINUM) 
gin $SUB ; SS OF FORTRAN TRACT 
10606 002416 SPOPX  ,ANS2 ; 2 WORDS AND EXIT POLISH MODE 
10612 0 BO24OC ;0 FLOATING i ie 
Dideie 1761 Corps  so4ad00 te gaa DIsheLe 
10622 1 3 LDF LONUM, ACO WITH A 
ims 1 LDF HINUM, ACL ie ml w A RANDOH 
1 1 16 LOF aise ACS UPTON, 
10635 1701 LOFPS TS EXCEPT OVERFLOW AND UNDERFLOW 
010642 012737 O106S0 001110 MOV 8. +6, SLPADR err TOO ADDRESS 


a IO A ROOD eat 


172600 LOF ACO, Ace NTO aCe 
173201 ARET17: SUBF ACL, ACe ‘ete nF INT oay 
170237 ga236e ae STEPS FPS “ie i STORE FLOATING. POINT STATUS 
= prerte ‘BRANCH IF OK 
STF AC2, ANSI :SAVE FPU ANSWER 
ERROR 2 :FPS ERROR 


ATST17: CMPF sea R TO FORTRAN ANSWER 
C ‘Copy EL i ONDITION CODES 


SEE eers & 
3 se SonboRe 
a aces 
: 


01 
01 
01 
1 
i 
1 
01 
pt FCC : 
- wr SE OMPENSATE Fo FOR FORTRAN re 
01 174237 002406 STF ACS ARG ; ch 
bigrig tease 000001 002410 ADD a! ANST ee Save FP A FPU ANSWER 
{B48 i SaSupe CMPF wet AC3 ;CHECK ANSWERS AGAIN 
1 470000 CFCC : COPY FLOATING CONDITION CODES 
10 O01 414 BEQ AEND17 : BRANCH 
11 Ol o00002 002410 SUB #2, ANS1+2 BECRERENT FPU ANSWER 
12 O01 002406 SBC 
2313 O10744 1 002406 CMPF ANSI, AC3 CHECK ANSWERS AGAIN 
e3i4 biares CFCC ate ; COPY COPY FLOATING CONDITION CODES 
2316 Ot 174237 002406 STF AC2, ANS! SAVE FPU ANSWER 
e317 10760 1 ERROR 7 FPU AND FORTRAN DISAGREE 
2319 010762 


005037 002362 AEND17: CLR FPS ;CLR FPU FPS BUFFER 


FPU 
D@FPDA 
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EXERCISE SUBF, OVERFLOW AND UNDERFLOW INTERRUPTS OFF, TRUNCATE MODE 
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2 
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a 


#2 
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EXERCISE Sued, OVERFLOW AND UNDERFLOW INTERRUPTS OFF, TRUNCATE MODE 


s LHERELELERRAREEEE ERAS EELS ARE REREEEEE RRR EE ESSERE REESE ESSE 


: t ATEST 20 


EXERCISE SUBD, OVERFLOW AND 
jE AE 


ie 





Ronee RESESIORS TES 


Pes Bee dee Bae ee pe hee em pee Baw fe feet feo fas Pe pe Pe fs pe 


ee ee 
roe 


fea Brite oouu0 


gig 

011124 002362 
011130 002362 002400 
011136 1403 

011140 174237 002406 
011144 104020 

thts. 173702 ATST20: 
0111Se2 bora? 

Tete: 74237 002406 we 
Bille Geera? Soecn! ones 
Bri ise 005537 002410 
ety 

11 1 

1S gag om 
if Boosie 

ite 005637 002410 
Ve 

11 

011242 


178801 areTeo: SUBD 


NTERRUPTS OFF, TRUNCATE MODE 


SRE” APE LTT AU 
L 


OO 


CLR CLR FPU FPS BUFFER 
KR OER etR FEY FEA BUEFER 
SR PCARGNOLY ;GET RANDOM INPUT DATA 
JSR RY, SPOLSH ; 


: 
ES 
= he 
2 
a Bese 
Le 


‘POP 4 WORDS AND EXIT POLISH MODE 
(OrPS $04 fee " NTERRPT BL SLECAND FD 
tBR URYNUR’ AC 88 eT MIT & ee es 
COD —sANS2 
LDFPS e004 TU INTERrUETS SUEXCEPT OVER AND UNDERFLOW 


5 Se SE ae aE EAE SE a a a a a a a a aa a aaa EE 


AL Ae ISUEYRACT Fel BY ce 
ee FPS os is ee a POINT STATUS 


atTst2o 
STD AC2, ANS! 
ERROR 20 FPS ERROR ee 
cree empai; {GOP FLOR BTING CONDITION CODES — 
is C0 CrPENSATE FOR FORTRAN IRACCURACTES, 
ADD eae tb tPNCRENENT anBte ANSWER 
ADC ANSI +4 
adc ans 1+2 
CMPD Ane ACS ;CHECK ANSWERS AGAIN 
cree : COPY FLORTING CONDITION CODES 
BF Me te Ae ise CRE EMENT eu ANSWER 
Sec ANS1+4 
SBC ANS1+2 
SBC ANS1 
CMPD «ANS, ACS ;CHECK ANSWERS AGAIN 
CFCC : COPY FLOATING CONDITION CODES 
BEQ AEND20 :BRANCH IF 


0S 


ADD/SUB/MUL/DIV RANDOM EXER MACY11 27(1006) 09-FEB-77 10:34 PAGE S 
mw 9-FEB-77 1 10:32 T20 
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1244 174237 002406 
11250 104010 


O112S2 005037 002362 


8 
EXERCISE SUBD, OVERFLOW AND UNDERFLOW INTERRUPTS OFF, TRUNCATE MODE 


STD AC2, ANS] ;SAVE FPU ANSWER 
ERROR 10 ;FPU AND FORTRAN DISAGREE 
AEND20: CLR FPS ;CLR FPU FPS BUFFER 


FOS 
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DQFPDA.P11  09-FEB-77 10:32 T21 EXERCISE MULF, ALL INTERRUPTS ON, ROUNDING MODE 
gee ; iUttst 21 EXERCISE MULF, ALL INTERRUPTS ON, ROUNDING MODE 
ie rr t | aptenteaeeeseensesntenerensbanseuneentensnaanedneaneenteaneees 
gam lees i Mr rc aac bins 
2388 Olen CLR SFEC th FOR Phan FEC 
2389 Ol CLR SFEA eth F ORTRAN FEA 
e330 ll CLR FPS :CLR ay F R 
Feel 11310 CLR FEC CLR FPU ER 
11314 CLR FEA CLR FPU FER 
53a) O11ae4 ‘a ihe co 
2395 011330 JSR RY, SPOLSH ‘ENTER POLISH MODE 
os O11 SPUSH ,LONUM : PUSH é ON STACK (LONUM) 
11340 SPUSH  }HINUM : PUSH ON STACK (HINUM) 
2398 4011344 SMUL ADDRESS OF FORTRAN MULTIPLY 
2333 011346 SPOPX  ,ANS2 :POP 2 WORDS AND EXIT POLISH MODE 
2401 011352 SFPS, RO :DI FLOATING POINT STATUS 
11 PS adog : Pon THE FPS DISABLE 
5405 Bliss LPF Conan, 9 tom ACO WITHA RANDOM rune 
4 biLire COFPS Ns aes Loeb Re ALN Toe Um 
2407 011402 001110 MOV 8. +6, SLPADR RESET LOOP ADDRESS 
a3 ; ELESSESEREREE EEE X HEU REREHLREREERESEE ESKER KARHEAREKA RAR SE ERRES 
Stk BUGIS. gD wert: He GEAR HAO AOP ENTS 
Bis Blin iftey onze ST! Binks Fee'e SNe Fuostine oti staru 
1S O114 1 HERR : re OK 
sate seth rected 002406 2, ANSI : FPU ANSWER 
Eat 011434 104003 ERROR 3 FPS ERROR 
114 002400 MERRI: TST SF ; ERROR BIT SET ? 
Suen Biivas fp00i4 Be. OATSTA Bont GET FEC/FEA 
eel O11444 170337 002364 STST FEC YES, OOHECK STATUS 
ees 0114450 023737 002364 002402 cHP FEC, SFEC i CHECK THE FLOATING EXCEPTION CODES 
eves 011460 ERROR 25 “FEC IS WRONG 
2427 O11462 023737 002366 002404 1S: CMP FEA, SFEA ;CHECK FLOATING PC 
2428 011470 001401 BEQ MTST1 ;BRANCH IF OK 
553 011472 104025 ERROR 25 WRONG ADDRESS IN FEA 
4 1 011474 173702 MTSTL: HPF AC2,AC3 ;COMPARE FPU ANSWER TO FORTRAN ANSWER 
2432 011476 470005 COPY FLOA mete CONDITION CODES 
534 i nSATE FOR FORTRAN Sit 
243S 011502 174237 002406 Save FPU ANSWER 
Ea O11 Of 162737 99003 002410 a ai ANS +2 ‘DEC MENT FPU ANSWER 


SOARS OHH, ER ert 270m 
z 


ll 
: 
: 
; 


002406 


MEND1: 


ae a eee aera ee 


GOS 
EXCRCTSE MULPS ALL INTERRUPTS ON, ROUNDING MODE 


CMPF ANS1 ,AC3 ; CHECK RS AGAIN 


CFCC ;COPY FLOATING CONDITION CODES 
BEQ MEND 1 ; IF OK 

STF AC2, ANS1 ; SAVE FPU_ANSWER 

ERROR 11 ;FPU AND FORTRAN DISAGREE 

CLR FPS ;CLEAR FPP FPS BUFFER 


Se 


= 


3 
: 
b 
: 


A we MACY11 27(1006) O9-FEB-77 10:34 PAGE 6 
Tee EXERCISE MULD, ALL INTERRUPTS ON, ROUNDING MODE 


o 
~ 
e 


pieet oo TTT EXERCISE MLD PUL INTERRUPTS ON ROUNDING MODE 


‘ATE 
té 


XE 
fasteseeggqvnunncessevansdetnesuaneeetsenabansonssssnenee 


V @MRET2, EXPFEA  ;ADDR OF INSTR BEING TESTED 
MOV 7600, SFPS ‘ser FT ie 1Ts He FORTRAN ANSWER 
CLR C 
éLR A +etR FORTRAN FEA 
CLR FPS :CLR FPU F ER 
€LR FEC :¢LR FPU R 
CLR FEA :CLR FPU ER 


JSR 4 ‘GET RANDOM INPUT DATA 
. WORD Peau P TRUM : 
RY. SPOLSH SENTER POLISH MODE 


IPOH 4 WORDS On STACK. CHINUA 
PORK, ANSZ iPOP WORDS AND EXIT POLISH MODE 


o 
es 
& 


Rs mh be pee ee het hw he ba Re fro Bee 
oe 


Pee feat Pe b> ben fan bao feme Pae ewe See as Rae pS 





ooooeoco joelolo= wfelelel=slelo =l-lel=) 


DOFPDA. 
es 

244g 

es 

eee 

2459 

Buel 

Sues 

2465 013700 002400 MOV SFPS, RO ;DISPLAY FLOATING POINT STATUS 

2466 O11642 170127 040200 LDFPS :SET FD OF FPS ONLY, INTERRUPT DISABLE 
Suee Bice 195e3> POSUSP toe ORPNUN ACT iL Ae BEY WiTH a NUMBER 

e163 11656 172737 OO02416 LDD alse Ac3 ;LORD 8 WITH THE SUM 

71 {ieee Mee iets 001110 Vv e007 000 on RESET L gn 

ae 563 AE EE AEE 9 9 9 0 a a a a a a a a a at 
2475 011674 172600 LOD ACO, Ace ;LOAD ACO INTO AC2 

ei? O11676 171201 MRET2: MULD AC1,ACe *MULTIPLY ACL BY AC2 

a7? 11700 170237 902362 - STEPS FPS. = : STORE RE FLOATING POINT STATUS 

73 abe 1 = BEQ AERAS IF OK 

2480 011714 174237 o02406 STD AC2, ANS! :SAVE FPU ANSWER 

2481 011720 104021 ERROR 21 FPS ERROR 

Bh 011722 005737 002400 MERR2: TST SFPS ;ERROR BIT SET ? 

2484 011726 100014 BPL MTST2 NO, DONT GET FEC/FEA 

2485 011730 170337 002364 STST FEC YES, CHECK STATUS 

sue 011734 023737 002364 002402 CHP FEC, SFEC ; CHECK THE FLOATING EXCEPTION CODES 
oes 011744 104031 ERROR 31 "FEC IS WRONG 

2491 O11746 002366 O02404 1S: CMP FEA, SFEA ;CHECK FLOATING PC 

cae O11754 001401 Q mTste2 ; IF OK 

O11 ERROR “WRONG ADDRESS IN FEA 

2495 011760 173702 MTST2: CMPD  AC2,AC3 ;COMPARE FPU ANSWER TO FORTRAN ANSWER 
2496 01176¢ 470000 cece : COPY FLORT ING CONDITION CODES 

5490 {EOHPENSATE For FORTRAN tNACCURACIES. 

ae stead ee BpoODT 002414 Sto OTC ANGI +b i BECRENENT FRU ANSWER 

2501 O12000 005637 002412 SBC ang] +a 





ee 


ne 


105 


FRU ADD /SUB/MUL /DIV SP in EXER MACY11 27(1006) O9-FEB-77 10:34 
09-FEB-77 Tee 


PAGE 62 
EXERCISE MULD, ALL INTERRUPTS ON, ROUNDING MODE 


| DQFPDA.P11 10:32 
12004 10 C 1+2 
ce Bist eee Bie Eel 
16014 1 CMPD = ANS1,AC3 ;CHECK ANSWERS AGAIN 
2505 tse 470000 CFCC : COPY FLOATING CONDITION CODES 
61 Saes rte 002406 eF8 BES ENS 1 fg ANSWER 
104012 ERROR le :FPU AND FORTRAN DISAGREE 
10 012032 005037 002362 MEND2: CLR FPS ;CLEAR FPP FPS BUFFER 


2S11 





2 


pugs Sea aed Sea AAA Gh ee 


09-FEB-77 


174 002406 


005037 002362 





001110 


002410 


PAGE 63 
RCISE MULF, OVERFLOW AND UNDERFLOW INTERRUPTS OFF, ROUNDING MODE 


ADD /SUB/ MUL /DIV og EXER MACY11 27(1006) O9-FEB-77 10:34 
-Pll 10:32 Te3 EXE’ 


Se ET ERCISE MULE OVERFLOW AND UNDERFLOW INTERRUPTS. 


tkTEST 2 
té 


UNDE NTERRUPTS OFF, ROUNDING MODE 
jeaueenuecanenuicasunieasiedaseneessecaneneenneenessenaaeeae 

RY EERIE 100 IST PEN Ten 

CLR "Foe BFR FRTRAN Be 

CLR SFEA CLR FORTRAN FEA 

th ee a Feu Fer REFER 

CLR FEA CLR FPU BUFFER 

ISR RANOLS ;GET RANDOM INPUT DATA 

ine Ry Sh ENTER POLISH MODE 

Reis} chia ARES Bh RR 

SPOPX  ,ANS2 BOP e HORDS AND D EXIT POL Si MODE 

MOV SFPS, RO DISPLAY FLOATING POINT STATUS 

LBEPS (BAUM. iChERR WITHA 

LDF HINUM: ACL *LOAD ACL WITH A RANDOM NUMBER 

BFP . i080 Pht cHauP TS BN CexcePT OVERFLOW AND UNDERFLOW 


MOV #.+6, SLPADR ;RESET LOOP ADDRESS 
3 HHHHHHHHIHIHHIEEHIHIHIHIEEHHHHHHIHHHIHHHIHHIEEHHHIHIEE EHH 


MRET3: HOLE AE ACS AO T PLY AC Sahn y Ace 
STEPS 2 pet aoe Fh ating. POLAT STATUS 
BEQ mTSt3 BRANCH IF OK 
ln hs! tle 
MTST3: ie Ac2,AC3 ONE oe Ne ABNSHER 19 FORTRAN ANSWER 
SEOMPENSATE.. FOR FORTRAN {NAC 
CP Rattle Bibeeh hen 
Ree mel, on i KGB FCORTTNG CBNB TION CODES 
BEG ND3 BRANCH IF OK 
Aron fie i PEN AND FORTRAN DISAGREE 
MEND3: CLR FPS CLEAR FPP FPS BUFFER 


a 


KOS 


ADD /SUB/MUL /DIV a EXER MACY11 27(1006) O9-FEB-77 10:34 PAGE 64 


-Pll Q9-FEB-77 10:32 Te4 EXERCISE MULD, OVERFLOW AND UNDERFLOW INTERRUPTS OFF, ROUNDING MODE 
5 3H HIHIHHHHIHIHIEHHHHIHIIHHHIHHHHHHIHIHHIHHEHHIHHIEHIHIHIEHHHHHHHE EEE 
kT TEST 24 EXERCISE MULD, OVERFLOW AND UNDERFLOW INTERRUPTS | OFF, ROUNDING MODE 


jjttitebinsseenseceeeninnsebessensnenenesenaes RELLELREREALELELS 


tét24 





RERPRERELG POLAND 


012264 
BLES RY ROUGE? PLE TN Fintan ne 
1 R C :CLR F FEC 
Oeste R A CLR FORE 
1 CLR : FPS BUFFER 
Slees fe ER 1S FEU eaN REFER 
Bt $f RANDL4 iS RRNOOR I DATA 
Ole332 .WORD LOAUM. HINUM ; 
l JSR R4, SPOLSH i ENTE 
nies ssi uth AUaHY WSs GW sa 
i % * HINUM :PUSH 4 WORDS 
pies 002416 SPbbx , ANS2 + BOD a hokbs” AND EX a 
Hise (ns eee He Fae, altar hove 
tlses tere Bee ek i a 
Bisuia AiSe9? Bratte 0110 ee es iTV Tei iiees EXCEPT OVER ro WOE 
mem pro 
Ot Stes i7eom MRET4: ori Bed Ok PLY AGL BY Ace 
1 1 * STFPS Pee ae i te’ POINT STATUS 
TEs Ges? 37 002362 002400 CMP FPS, SFPS ; cK FPS ‘i 
pt z 1383 002406 B68 ACB ANSI ene ANSWER 
Ole442 104021 ERROR 21 :FPS ERROR 
012444 173702 MTST4: CMPD  AC2,AC3 0 FORTRAN ANSWER 
O1euas 470000 cece fey oe SORBIT EON CODES 
COMPENSATE FOR FORTRAN ft 
0124S2 174237 002406 STD AC2, ANS1 SAVE FPU ANSWER 
12456 000001 002414 Sua 81, ANS1+6 >DECREMENT FPU ANSWER 
Be ey e Be 
1 Sac 142 
0 fo a 002406 app anes AC3 
i ison 1 CFCC ‘ ‘OB FLOR anine CONG TTION CODES 
# 01508 001403 BEQ MENDY ; 
3 bigs 174 002406 51D AC2, ANS! eae Heil ans 
4 12514 104012 oR le AND FOR DISAGREE 
& 012516 005037 002362 MENDY: CLR FPS ;CLEAR FPP FPS BUFFER 


ROR 





a 


ADD /SUB/MUL/DIV RANDOM n per MACY11 ar 


om Eau 


65 
RL INTERRUPTS ON, TRUNCATE MODE 
j Weeneggeesuccnsnssassgencesees \ deloded-tel-t-b-b-te}-t-4-tah-Seladal-t-ioheh-d-t-t-taleh-t-t-tebe! 


_— 
N 


as 


EXERCISE MULF, ALL INTERRUPTS ON 
hima {EE EEE 


eats 


fame ee ee a ee 


= 


Seat 
g aaad 
A fe 





— oo 
eo wo 
a 


SERRRRE Soar 


Bem bee fer Rt Bae he pe be be be eee hee 


o~ 


nod 


MODE 
Fhanstessstenenes 


TAU Mes 
fel 


Bi — : 
—-* 
re 


AS, FORT rani a 


;DISPLAY FLOATING POINT bits: 


9-H ESE SE SE SE Sb ab ga SE a a a a aaa aa aa aa aE 


— 
~“ 
-_ 
ae 
ail 


ee 


ee 
Bis 

m 

3 Res 


Son SICERD | REWAR 


— 
£ 


ee 


Ba 


RN Pe ee Bree Pes Bee Bm fe ke fe 


g03 


S ies 


: 
2 


i 
58 
5 
oad 


aes 


259 9 


bb 


;LOAD ACO INTO AC2 
CTIPLY Bc} Be 
TING POINT STATUS 


;ERROR BIT SET 

iO, Ofeck s STATUS gocren 

;CHECK THE FLOATING EXCEPTION CODES 
sRENEY IF otk 

;CHECK FLOATING PC 

fnige aM IN FEA 


; COMPARE ANSWER TO FORTRAN ANSWER 
;COPY FLOATING CONDITION CODES 


a 
: COMPENSATE FOR FORTRAN {NACCURACIES. 


s 
5 
5 
eos 
a 
2 
Be 
5 
2 
& 
5 
5 
= 
Q 
& 
es 
Sere 


38 1 
i 


ge pe 





; tFNCRERENT FPU ANSWER 


FPU ADD/SUB/NUL/DIV RANDOM EXER MACY11 27(1006) O9-FEB-77 10:34 PAGE 66 
DOFPDA.P11 09-FEB-77 10: Tes EXERCISE MULF, ALL INTERRUPTS ON, TRUNCATE MODE 


0:32 
2673 012764 173737 002406 CMPF ANSI, AC3 CHECK ANSWERS AGAIN 
2674 012770 170000 CFCC ‘pout CONDITION CODES 
are 15576 oo0002 002410 BER Te RRs 42 : Phu ANSWER 
53 i 002406 ap wei AC3 CK N 
a ie GS SEA Btn on 
2681 013016 174237 OO2406 STF AC2, ANSI iSAVE_FPU. ANSHER 
13022 104011 ERROR 11 :FPU AND FOR DISAGREE 
002362 MENDS: CLR FPS CLEAR FPP FPS BUFFER 





FPU hi hete RANDOM EXER MACY11 27(1006) 09-FEB-77 


SVVV8Vy8 


3 


10:34 PAGE 67 
09-FEB-77 10:32 T26 EXERCISE MULD, ALL INTERRUPTS ON, TRUNCATE MODE 


3 Lclehelslahebelelsbchelabaiahelghababaiahelelaiaiahalelelahebeialahehebadalate 
;#TEST EXERCISE MULD ALL INTERRUPTS. ON TRUNCATE MODE 
+ PITITTTTIDTiriitiiiiiiiiiiiiiiiieereriir erie 


ee 012737 013164 002376 tee 


EXPFEA ieET | OF INSTR BEING TESTED 


le g it. ANSWER 


364 
2 ‘eee 
RANDLY : FPU FEA. REFER 
L HINUM : 
R4, SPOLSH ENTER POLISH 





: MODE 
ROGRESS OF FORTRAN ment te 


= ce ACTER oes 


ei 
es 


5 
o 


SA ESSE SES rreeer eee 


: 
SEEBaRS reas 


Dee meer OO 
ates & 


EDAABABARAPR DANO 


3b TNUM; ACI tee ou Me 
i on? 549 001110 8. +6, SLPADR SET L $s 
18 $ SESSLER ESESRESSAESEESRSRELALALEEE SERRE RERE ERE RR ARLE R ERLE REE 
1S 013162 172600 LOD ACO, Ace NTO aCe 
1g ot 164 17 MRET6 "ACE : MRTIPLY 1 i pate 
17 0131 170e3? S F ia RE FLOR POINT STATUS 
18 0131 002362 002400 CMP FPS, SFPS : CHE 
6 Stee Tee ones a 
Bt 104021 £ , *FPS ERROR 
Steir corm vem Te RAT ET chen 
pissié 17 002364 TST FEC YES, CHECK ae 
913282 002364 002402 CMP FEC, SFEC CHECK THE FL FLOATING EXCEPTION CODES 
230 001401 BEQ 1 : 
013232 104031 ERROR 31 :FEC IS trove 
013234 002366 002404 1S: CMP FEA, SFEA ;CHECK FLOATING PC 
Oi Jeve att BEQ ects 
13244 104031 ERROR 31 + WRONG SEONG ABDRESS IN FEA 
0132% 173702 MTSTb: CMPD  AC2,AC3 ;COMPARE FPU ANSWER TO FORTRAN ANSWER 
913250 4170009 cece ‘COPY FLOAT NG CONDITION CODES 
, " FOR FORTRAN ie URACIES. 
013254 174237 002406 ae" ont ee  BAVE-EPU ee 
013260 37 000001 o02414 {Anes + PCREMENT FPU ANSWER 
013266 005537 O0e4ie2 Abe angie 





a 
8 


/SUB/MUL/DIV RANDOM EXER MACY11 — 09-FEB-77 


DOFPDA.P11 OQ9-FEB-77 10:32 EXERCISE MuLO, 
oe ten Wee pee gas 
oe i 002406 Keep ANS1,AC3 
1 Q 
ae Le we BU 
e749 ine 002410 SBC aaive 
sat ties We Be Sy Hal ua 
e7Se Ne ace CFCC 108 
fa HES BE) ono Ete 
sve 013380 104012 ERROR le 
see 0133S2 005037 002362 MEND6: CLR FPS 


68 
OL INTE INTERRUPTS ON, TRUNCATE MODE 


are CONDITION CODES 


C NENT ANSWER 


;CHECK ANSWERS AGAIN 
; COPY oe ee CONDITION CODES 


iSAVE FPU ANSWER 
‘FU AND FORTRAN DISAGREE 
;CLEAR FPP FPS BUFFER 


3 
: 
: 


CO6 


/MUL/DIV RANDOM = MACY11 ST ae 09-FEB-77 


wv 
— 
os 


sassy 
reer 


3 


Bt eae fe fee fae foe fea fieso fee fee fee freee Dem Deen Gn bee fee fm paw Pes PS Be 


RaaeRee 548% 


init 


PEEL RP Re rr eherr rer rent ce SERFS PARSE 
SENSERReS fan SOne 


Bee 


fet bs ee he ee be Bs Pe FS ps hae an 9 =<! fee Pas bem Fe fe 
£nvo 


ce mbaprs ae 
See ee 
fwreoO 
oO 

RR 


10:34 PAGE 69 
EXERCISE MULF, OVERFLOW AND UNDERFLOW INTERRUPTS OFF, TRUNCATE MODE 
3 REE EHH HEE 





:#TEST 27 EXERCISE MULF, OVERFLOW AND UNDERFLOW INTERRUPTS OFF, TRUNCATE MODE 
4 . sseeetecnenneesennedensesabensneesenssesesssnsesenatecssssesse 
013512 002376 MOV QMRET7,EXPFEA ; TR BEING TESTED 
002400 MOV #004440, SFPS ope 1f alte IN ORTRAN ANSWER 
CLR SFEC :CLR FORTRAN FEC 
th ORpS eth EPU EPS BUFFER 
posers CLR CLR FPU Fee BrER 
CLR FEA CLR FPU BUFFER 
3414 JSR PC, RANDL2 GET RANDOM INPUT DATA 
% . WORD LAUR HINUM : 
B0 JSR 4 ,SPOLSH ‘ENTER POLISH Se ape 
rated Souci " HINUM Pu on TACK (HSNO 
SMUL ‘ADDRESS OF FORTRAN MULTIPLY 
002416 SPOPX  ,ANS2 "POP 2 WORDS AND EXIT POLISH MODE 
0 MOV SFPS,RO sDISPLAY FLOATI NT STATUS 
reat hated LOFPS #040000 : THE INE NTORRUPT DISABLE 
172437 002426 LOF LONUM, ACO "LOAD ACO WITH A RANDOM NUMBER 
135039 002436 LOF HINUM: AC1 *L Be] HITH 8 RANDOM NUMBER 
172737 002416 LOF ANS2, ACS sL WITH THE SUM 
170127 OO4440 LOFPS #004440 TURN I TS ON, EXCEPT OVERFLOW AND UNDERFLOW 
012737 013510 001110 MOV #. +6, SLPADR "RESET LOOP ADDRESS 
; LAKKAERERARERESSASEEEEASEAERREARERRRRRRRRRRERS RARE RARE RARE EE 
172600 LOF aco, Ace ;LOAD ACO INTO AC2 
171201 MRET7: MULF AC1,ACe *MULTIPLY ACL BY AC 
70237 002362 STFPS FPS :STORE FLOATING POINT STATUS 
37 002362 002400 CMP FPS. SFPS : CHECK 
001403 BEQ mTSt? “BRANCH IF OK 
174237 002406 STF AC2, ANS! SAVE FPU ANSWER 
104003 ERROR 3 FPS ERROR 
173702 MTST7: CMPF  AC2,AC3 COMPARE FPU ANSWER TO FORTRAN ANSWER 
170000 CFCC -COPY FLOATING CONDITION CODE 
001427 BEQ ND? jANSHERS CK 
“COMPENSATE FOR FORTRAN NAC IES. 
174 002406 TF AC2, ANSL -SAVE FPU ANSWER 
hes 000001 002410 ADD #1, ANSI+2 : INCREMENT FPU ANSWER 
005537 002406 ADC ANS 1 
1 002406 CMPF  ANSI,ACI ; CHECK ANSWERS AGAIN 
170000 CFCC :COPY FLOATING CONDITION CODES 
001414 BEQ MEND7 :BRANCH IF 
1 oo00002 002410 SUB #2, ANSI+2 *DECREMENT FPU ANSWER 
005637 002406 SBC ANS 1 
173737 002406 CMPF ANSI, AC3 ;CHECK ANSWERS AGAIN 
CFCC :COPY FLOATING CONDITION CODES 
1403 BEQ MEND7 : H IF OK 
174237 002406 STF AC2, ANS! SAVE FPU ANSWER 
104011 ERROR 11 ‘FPU AND FORTRAN DISAGREE 


005037 002362 MEND7: CLR FPS ;CLEAR FPP FPS BUFFER 


FPU ADD/SUB/MUL/DIV RANDOM EXER MACY11 27(1006) 09-FEB-77 10:34 PAGE 70 
DOFPDA.P11 O9-FEB-77 10:32 Te? EXERCISE MULF, OVERFLOW AND UNDERFLOW INTERRUPTS OFF, TRUNCATE MODE 


2815 


O6 


FPU ADD/SUB/MUL/DIV_ RANDOM a MACY11 27(1006) O9-FEB-77 10:34 PAGE 7 
DOFPDA.P11 O9-FEB-77 10:32 T30 EXERCISE MULD, OVERFLOW AND UNDERFLOW INTERRUPTS OFF, TRUNCATE MODE 


e816 + SESERESERERSSSSSSSSSRSSSSRERRRESRS ESSERE REAR RERE ESR ERE REELS 
tt ;ATEST 30. EXERCISE MULD, OVERFLOW AND UNDERFLOW INTERRUPTS OFF TRUNCATE MOOE 
2819 013626 T30: SCOPE 
Bast Hee Bistae BAa?GR BRSaGB Heys sbonedB? Bebe” HEPPB eff In FORTRAN mrouER 
eaes 13680 BOSS? DOEMEM th OSEA ict FORTRAN FEB 

ce Fe EO FE Ree 
eect 1 CLR FEA CLR FPU FER 

1 ISR PC, RANDLY ;GET RANDOM INPUT DATA 
eae aes? 002436 . WORD LOAUr, HINUM ; 
ion $3 hcH , LONUM BSH BT bras BRE TACK (LONUM) 
013710 O2e3Sb2 002436 SPUSH | HINUM : STACK <HINUM) 
ae Olle feely cru ores Po 
833 6013716 12 002416 ,ANS2 : EXIT POLISH MODE 
Se ire UE ns Hh PAT PRIN FOU ETRY orsree 
2837 01372 i7e43? OOeeb LOD LONUH, ACO L 4 TH A ReKOON NUMBER 
oe Eat 17e eye LBD face. hes Lop fel WITH THE _ nn al tidy 
Se Bers ADS? BUR oousso NSERC mon iPS Ene ~ 
as 5M 6 AE EE A 4 SE dg a a a a a a a a a 
So: Pe ee ee 
eee place fara? Ooese ovevo0 B FPesres BK FE 
2850 O14000 174237 002406 STO AC2, ANS! : FPU 
2851 O14004 104021 ERROR 21 FPS ERROR 
eeee 014006 173702 MTST1O: CMPD  AC2,AC3 COMPARE FPU ANSWER TO FORTRAN ANSWER 
2854 014010 ¢ :COPY FLOATING CONDITION CODES 
gpss 014012 001437 BEQ HEND10 “ANSWERS C! 

sane te COMPENSATE FOR FORTRAN TNACCUR IES. ‘ 
A ills 
2860 014032 005537 002410 ADC ANS1+2 

rl 002406 ADC 1 
Paes Biss ee ua ost ‘COBY FLORTING CON CONDITION CODES 
a a a Cn cg ee 
2866 014060 le Sec ANS1+4 
2867 014064 O0Sb37 SBC ANS1+2 
2868 014070 002406 SBC ANS | 
2869 O14O74 173737 002406 CMPD ANS, AC3 ;CHECK ANSWERS AGAIN 
2870 O14100 17 CFCC : COPY FLOATING CONDITION CODES 
2871 014102 001403 BEQ MEND1O ‘BRANCH IF 





FPU ADD/SUB/MUL/DIV RANDOM EXER MACY11 27(1006) 
D@FPDA.P11 O9-FEB-77 10:32 T30 


675 Oliia loi 


2875 014112 005037 002362 MEND 10: 
2876 





O9-FEB-77 10:34 PAGE 72 
EXERCISE MULD, OVERFLOW AND UNDERFLOW INTERRUPTS OFF, TRUNCATE MODE 


PAR "tries ;SAVE FPU R 
OR 1 :FPU AND FORTRAN DISAGREE 
CLR FPS CLEA FPP FPS BUFFER 


FPU ADD/SUB/MUL/DIV RANDOM EXER MACY11 27(1006) 09-FEB-77 10:34 PAGE 7 
D@FPDA.P11  09-FEB-77 10:32 T31 EXERCISE DIVF, ALL INTERRUPTS ON, ROUNDING MODE 
2877 peeettesoeeenzeneeeansnenseeeneenenssnnaeuenneeeeeesnnerinnen 
tal 014116 900004 rts yee rel 
4] y, E s 
Seah Biiise Rises? Biseas Boson Moy SBRbuda SF PS Eagiaiic "Ty Fontra 
2883 O14134 005037 O0e402 CLR SFEC 
Sees Ol4iay Qosos? posse? Rh Opps” ae ee R 
eo GiNisa boas? Goss R OFFR ete EPU B ie 
14154 CLR FEA CLR FPU BUFFER 
op88 14160 737 14 ISR PC, RANDL2 GET RANDOM INPUT DATA 
1416s K 3 .WORD LONUM. HINUM 
2890 O141 JSR R4, SPOLSH ENTER POLISH MODE 
2891 O14174 002426 SPUSH  ,LONUM : PUSH ON STACK (LONUM) 
2892 Re Sbe 002436 SPUSH ” HINUM : PUSH Ok ook CH NUM) 
oe 1 iSoe 023612 o02416 SPOPX  ,ANS2 + POP WORDS AND EXIT POLISH MODE 
SS ASI OD BE Sles Sah «MP ierater pera” svat 
2899 Ole i7e43? 002426 LDF LONUR, ACO Hae el i We NUMBER 
Soe3 Biusss 195957 Bostic t ANSS ACS TH THe sum 
2901 014236 170127 LOFPS #007400 
2902 O14e42 012737 O1425C 001110 MOV #. +6, SLPADR iRECET NORE NObe HODRESS 
cay H SREKSSESKARREKEREAASEAESRARERRARRSRRRRRERRRRRRERAREE LARA SERRE 
oe 014250 172600 LOF Aco, Ace ;LOAD ACO INTO AC2 
2907 014252 174601 DRET1: DIVF  ACI,ACe ‘DIVIDE ACI INTO AC2 
2998 O1vos4 70237 902362 ns STEPS FPS on j STORE FLOATING POINT STATUS 
sa0 phaser 1403 ae BEQ DERR1 BRANCH IF OK 
2911 014270 174237 O02406 STF AC2, ANS1 SAVE FPU ANSWER 
e3l¢ 014274 1040i6 ERROR 1 FPS ERROR 
2914 014276 005737 002400 DERRI: TST SFPS ;ERROR BIT SET 
2391S 014302 100014 BPL OTST! 0 DONT GET FEC/FER 
e316 014304 002364 STST FEC YES, CHECK STATUS 
=318 014310 029737 002364 o0e402 CHP FEC, SFEC oe THE FLOATING EXCEPTION CODES 
al 14320 ERROR 26 ‘FEC IS WRONG 
014322 023737 002366 002404 1S: CMP FER SFEA ;CHECK FLOATING PC 
2923 014330 001401 BEQ bist : BRANCH 
sae 014332 104026 ERROR WRONG ADDRESS IN FEA 
2326 014334 173702 DTST1: CMPF  AC2,AC3 ;COMPARE FPU ANSWER TO FORTRAN ANSWER 
2927 0143 470000 cece a COPY FLOATING CONDITION CODES 
2929 i COMPENSAT : FOR FORTRAN {ANGERS CH : 
2930 014342 174237 002406 TF SAVE FPU ANSWER 
g231 014346 462737 90001 002410 SUB ai Ans +2 :DECREMENT FPU ANSWER 





FPU ADD/SUB/MUL/DIV noon EXER MACY11 27( 1006) 
DQFPDA.P11 0:32 T31 


09-FEB-77 
2933 014360 173737 
2936 014370 174237 
cox 014374 104013 
23939 014376 005037 
2340 


002406 


002406 


O9-FEB-77 10:34 


EXERC 


HOG 


PAGE 74 
ISE DIVF, ALL INTERRUPTS ON, ROUNDING MODE 


ANS1,AC3 
DEND1 
AC2, ANS1 
13 


FPS 





;CHECK ANSWERS AGA 

anc Foe CONDITION CODES 
ANSWER 

PP aN” FORTRAN DISAGREE 

;CLEAR FPP FPS BUFFER 


| 


/SUB/MUL/DIV RANDOM EXER MACY11 27(1006) O9-FEB-77 10:34 PAGE 75 
:32 T32 EXERCISE DIVD, ALL INTERRUPTS ON, ROUNDING MODE 


2 
y 
5 


prec ao EMERCION DIV), ALL INTERRUPTS ON. ROUNDING MOOE 


VATEST 32 EXERCISE D ALL IN 
eugeateaueneeatenusantenseabeaieasuseaneniennbantenniatesneaat 


tét32 


Oy SREUEADGRE® 120 OE tie en 
CLR Had : ;CLR Lea fRan He 

LR Spee tet FRY Pes BUFFER 

CLR FEC CLR FPU FEC BUFFER 

oe 4} RERGER RAB 

JSR 


RENE Whee agen 


eno 
Sees 7 
, ANS2 i BRBRG BRR ES oRbs® ano exit SEP Es MODE 





FPU ADD 
DOF PDA. 

S 

2345 

2 

Bs 

Seer 

pats 

Sao 002400 MOV TING POINT STATUS 

rs Ret ih si ke 

ee Her 17es37 Haake t HIN ACL my nik pt ree 
Saee Biuess 1501 Po, me tLORN INTERRUPTS ON 

a 014526 012737 014534 001110 MOV 8. +6, SLPADR *RESET LOOP ADDRESS 

cae 3 SRHAKKRASRSSRAAARAAR RAE RERAERRRARSERERRAEESRRRA RA RAS LALA LARA ES 
2970 014534 172600 LOD ACO, AC2 

S78 B1480 ices? 002362 DRETe: BHYE, parte Rte “Pah fNTO aac STATUS 

sa Hes Gang See! como ee . 

Se in ines = Bois Ekle 

} 

cay 014S62 inched 002400 DERRe: TST eres if To ve ren 

Sh BIE FELL ca Bi, Fee RL 

2982 Ree ate 002364 002402 CMP ” pect s CHECK TH FLOATING EXCEPTION CODES 
s 7 FEET lh 

2986 aisets 023737 002366 002404 1S: CMP nee ;CHECK FLOATING PC 

ea 6 MBAdg ; S IN FEA 

2990 014620 173702 DTST2: CMPD  AC2,AC3 COMPARE FPU ANSWER TO FORTRAN ANSWER 
Saas BiueSq Agiaee ES _DeNoe iSPeY EhOnIzig CONDITION CODES 
ee 014626 174237 002406 ei" ° “te 5B pea nnn tnaccuRecTES. 

2995 014632 162737 000001 o02414 1, ANS1+6 :DECREMENT FPU ANSWER 


014640 005637 002412 oe angi +4 
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| DOFPDA.P 09-FEB-77 10:32 132. EXERCISE DIVD, ALL INTERRUPTS ON, ROUNDING MODE 
«RBZ — Bpese BRS IAe age Bei *® 
| 3999 014654 173737 002406 CMPD «ANSI, AC3 ;CHECK ANSWERS AGAIN 
| me i CFCC {COPY FLOATING CONDITION CODES 
LHe ED cane ft. eee 
03 rts i Cat re PRROR Ia” SAVE, FU. ANGHER DISAGREE 
3005 01M672 005037 002362 DEND2: CLR FPS ;CLEAR FPP FPS BUFFER 


sisal 


ue i 
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A 
3019 


Sea oR2 Sas RATER ER SOND RUSS 


cine 


Ss 
ca 
a 
a 





: 


Hise fleras GASURR BOEIZE 


014714 


ities’ 


= b= pm be 


ooo fen be a hae tee 
ne n 
tas riage arate Ree 
Yeats) 







r 


POG 

Wale! t=! 

u AGO 

4 . + 
A 


Sa Ste Ee 






8 
8 


_—e 
tr 
24 


7 
RB 
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— 
a 
ae 


001110 


002410 


whit a ye MACY 11 i A ad OS-FEB-77 10:34 


0: PAGE 77 
EXERCISE DIVF, OVERFLOW AND UNDERFLOW INTERRUPTS OFF, ROUNDING MODE 


«HHI EHHIHIHIIHIH}HIHIHIHHEHHIHIHHIEH}HHIHHIIHHHHIHHEIHHHHIHHIHEHHHE Et 
i ATEST 33 


+6733: 


DERR3: 


1$: 


DTST3: 


EXERCISE DIVF, OVERFLOW AND 
* JHHHHHHHHEEHEHHEHEHEGHHHEBHHHHHHHEHEHHHHHEHHHHE 


UNDERF LOW INTERRUPTS OFF, ROUNDING MODE 
6 8b HE HE A Hh HE EE 


ihre elle ol Ye fn FORtRAR ARuER 


‘PUSH g. WORDS On STACK ROK (HINO) 
IPOP"E HRs! AN EXIT POLYSH MODE 
FLOATING POINT STATUS 


(PED wim a A RANDOM NUMBER 


;LOAD AC] WITH A RANDOM NUMBER 


5 LORD WITH THE SUM 
; TURN I S ON, EXCEPT OVERFLOW AND UNDERFLOW 
;RESET LOOP ADDRESS 


Pte dak aah RAEI sad ons ont ihe Sa 


ay 

CLR SFEC 

aR Ope 

CLR FEC 

CLR A 

TFB ap Pea HTNUM 

sSR R4, SPOLSH 

, LONUM 

SPUSH  ;HINUM 

BUY, ,ANS2 

MOV 

ters 

t LONUM, 

LOF HINUM. AC 

LOF ANS2 

LOFPS 

MOV #. +6, SLPADR 

LOF ACO, AC2 

or ACL AC2 
FPS OF 

BEQ pera 

STF AC2, ANSL 

E 16 

TST 

BPL ae 3 

STST FEC 

MP C,SFEC 
Q 1 

ERROR 26 

CMP F EA 

ad 

CMPF  AC2, AC3 

CFCC 

BEG DEND3 

TF AC2, ANS! 

err 81 ANSI +2 

SBC ANS1 


igs 


@ aki a ace. STATUS 


; ERROR BIT off: 
FEC/FEA 
iMeS, CHECK STATUS 


i Cree Te FL FLOATING EXCEPTION CODES 
;FEC IS WRONG 


BEM I ay, IN FEA 


;COMPARE FPU ANSWER TO FORTRAN ANSWER 
; COPY pa ber CONDITION CODES 


COMPENSATE FOR FORTRAN iNACCURRCIES 


i BECREENT FPU ANSWER 


- mm a pr ~eeamng, 


L968 


A paar eS ac ef per MACY11 aS eleartee pb veo ey PAGE 78 
_ DOFPOR. Pil DI OVERFLOW AND UNDERFLOW INTERRUPTS OFF, ROUNDING MODE 


17380 —— oer wane EOE FL TING CONOT TION CODES 


we; 40 
4 44 bo ; 
3065 46 1403 BEQ DEND3 ;BRANCH IF OK 
SO 174237 002406 STF RC2, ANS1 ; SAVE FPU ANSWER 
15184 104013 ERROR 13 ;FPU AND FORTRAN DISAGREE 
3069 
3070 


015156 005037 002362 DEND3: CLR FPS ;CLEAR FPP FPS BUFFER 





a 


WWW) G) IW) WW) GIGI) GI WI) WI WI) GI GUI GIG) GG) GI GG) GG) 
PRESALE coven con OSSVRREON SS 
pa 
— 

-_ 

a 
© 
-_ 


= 
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09-FEB-77 10:32 T34 EXERCISE DIVO, OVERFLOW AND UNDERFLOW INTERRUPTS OFF, ROUNDING MODE 


55 SHEE EEE} HHHHHIH}HEHIHHIHHEHHHHHIHHHHEHHEEHE 
tATEST 4 EXERCISE DIVD, OVERFLOW AND UNDERFLOW INTERRUPTS OFF, ROUNDING MODE 
| HueHenaeeauenatenecantunsushesseseSennsneeeHeeOEeREOEEOEHE itt 


vw 
ee 
eo 





ptetea 376 ters MOV EXPFER STR BEIN STED 
His pe ae RFRA AMER 
1 CLR ete 
; 19 CLR are" :CLR FPu Fee BFER 
1 LR ict FPU BUErER 
1 JSR 4 *GET RANDOM INPUT DATA 
1 “WORD LL HINUM : 
plese Bis Sir IRN RUSE BY rece chow 
i seuet ’ HINUM : 4 mt TACK (HINUM) 
015250 SDIV :ADDRESS OF F 
015252 SPOPX  ,ANS2 POP 4 WORDS AND EXIT POLISH MODE 
15258 Yates 002400 MOV SFPS, RO iDIS FLOATING POINT STATUS 
12Spe 1 3 pie tppes LONUM , +B A0 ARO WT THA RANDOM NUMBER 
ieere 176s? 002436 LOO HINUM, ACL LOAD ACL WITH A RANDOM NUMBER 
Bese 1753 tops RN TS ON, EXCEPT OVER AND UNDERFLCW 
015306 012737 015314 001110 MOV 8. +6, SLPADR *RESET LOOP ADDRESS 


yer reer | 


gE AE SE SEE SE SE Sg 4 a a a a a a a a a a a a a a a a 


OAD ACO INTO ACe 
AC1, ACE ‘DIVIDE AC] INTO ACe 
poe wes STFPS FPS ;STORE FLOATING POINT STATUS 
002400 CNP SFPS 
o02406 


fo aA ST 


ERROR 22 ;FPS ERROR 


a 

: 

ef 
E 
: 


oooo°0o 
=—— 
ata) 
ara 
Cr 


—— 
see 


002400 DERRY: TST j ERROR 
bie 1703? 002364 eP fis ’ yes, Goi Get ecvres 
1 002364 002402 CMP C, SFEC CHECK THE EL FLOATING EXCEPTION CODES 
015364 104032 ERROR 32 FEC IS RONG 
015366 023737 002366 002404 1S: CMP FEA, SFEA ;CHECK FLOATING PC 
1 PRAOR cH , SS IN FEA 
Siege as DTST4: eee es AC2,AC3 ier Ft Srey Font UNe PU ANSWER ie Of ORTRAN ANSWER 


; COMPENSATE ATE FOR FORTRAN jue Ce 


ee i ons AR REMETLS BEE Pee 


0154, 
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DOFPDA.P11 09-FEB-77 10:32 T34 EXERCISE DIVD, OVERFLOW AND UNDERFLOW INTERRUPTS OFF, ROUNDING MODE 


ue Oe BRE Beye "Eye eee 
bleg ireog eee ; {EOPY" FLOR ING CONDITION CODES 
6 tousiy Oe Error ia! i PPU AND FORTRAN DISAGREE 


01S4S2 005037 002362 , DEND4Y: CLR FPS ;CLEAR FPP FPS BUFFER 


1 
1 
1 
1 
1 
1 
1 
31 
31 





bens Bee bs Bas fee bom fee Pee eee fe pees fe pen fe Paw Be 


BLBSBIRRPBRHH BIS VAAZIN-“SSECEHRIGH-SSEVRALONL ES SSESFHESE= 


He eee AAT AL ATALATATALATATALATATATALATATATATATATALATATATATATATAATAL AA) 


Da eb ee ee ee mn te me en ee eB te Be fn es fee Bt Bee fee Be De fe em fe pe pe Bo be 


: 
: 
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DIVF, ALL INTERRUPTS ON, TRUNCATE MODE 





DOFPDA.P11  09-FEB-77 10:32 735 EXERCI 
5 [rect ae EXERCISE DIVE PLL INTERRUPTS ON TRUNCATE MODE 
t hTE EXERCISE DIVF, ALL INTERRUPT 
ft. Bk. Peer rerrere ry yy PrePrerey Peer Tree rer Tere Ty 
DISS téT35: SCOPE 
1 015612 002376 MOV Tearurree ;ADOR TR BEING TESTED 
1 002400 MOV :SET I N FORTRAN ANSWER 
1 00s CLR :CLR C 
1 CLR CLR FORTRAN F 
1 CLR Pps ;CLR 
15510 4 CLR C ite FPU 
15514 CLR F FPU 
1 14 ISR RANDL2 T RANDOM I DATA 
i ier ' hy gen —_ a Stax 
1ee40 GSSSES OuBdSe spuSH fer z Wide TACK CHINE) 
MES Boba sorv LEH Ba RAN DIVI 
1 l2 002416 SPOPX  ,ANS2 : AND EXIT POLISH MODE 
15552 0 002400 MOV SFPS FLOATING POINT STATUS 
1 rea LOFPS SHBO0o ier FID 
1 1 eb LDF LONUM, ACO 
1 1 LOF HINUM. ACL 
pte g 135 3 aa LOFPS if 
Steere eee 015610 001110 MOV #. +6, SLPAOR 





5, AE aE A aE SE SE a a a a a a a Sa a a a aa a a a a a a a a 


15610 172600 ACO, AC 
peels 17460 DRETS: ie ACL AGS hOVTDE ACL I are ace 
015614 1yaeu STFPS FPS Beck ORE CATING POINT STATUS 
01560 e373 002362 002400 CMP F 
1 1 BEQ 
015630 174237 o02406 S AC2, ANSI nH 
015634 104016 ERROR 1 FPS ERROR 
015636 005737 002400 DERRS: TST SFPS ERROR BIT SET 
015642 100014 BPL TSTS *NO, DONT GET FEC/FEA 
015644 170337 002364 STST F YES, CHECK STATUS 
015650 923737 002364 o02e402 cHP FEC, SFEC ;CHECK THE FLOATING EXCEPTION CODES 
pt 1 ERROR C IS WRONG 
015662 373? 002366 002404 1S: CHP FEA, SFEA ; CHECK FLOATING PC 
12898 1 ERROR oe + BRONG abbReSs IN FEA 
15674 173702 DTSTS: CMPF  AC2,AC3 COMPARE FPU ANSWER TO FORTRAN ANSWER 
15676 170000 cece : COPY copy FLOATING NG CONDITION CODES 
15700 001427 DENDS 
FEO MENSA — FOR FORTRAN innccuRaCTe 
015702 174237 002406 OTF aCe ANS!  BAVE-FPU_ ARSUER 
015706 000001 002410 ADD (CANT #2 INCREMENT FPU ANSWER 
015714 005537 002406 ADC ane! 


-— 


WWWWWW 
oe ee 


BIKKLS 


RaoRoes 


-Pll Q9-FEB-77 1 

tes 173737 002406 

1876s dorsi 

isa boses? foe 
Oi 173737 002406 

1 Arua 

1 1403 

01 174237 002406 
018756 104013 

018760 005037 002362 


ee ee ee -—_ 





O9-FEB-77 10:34 PAGE 82 

EXERCISE DIVF, ALL INTERRUPTS ON, TRUNCATE MODE 

CMPF ANSI,AC3 ;CHECK ANSWERS AGAIN 

CFCC ;COPY FLOATING CONDITION CODES 
BEQ DENDS ;BRANCH IF 

ae mares ;DECREMENT FPU ANSWER 

CMPF =©6ANS1, AC ;CHECK ANSWERS AGAIN 

CFCC ; COPY BRANCH TF OK CONDITION CODES 
BEQ DENOS 

STF ACe, ANS1 SAVE FPU ANSWER 

ERROR 13 PU AND FORTRAN DISAGREE 

CLR FPS ;CLEAR FPP FPS BUFFER 


a 





DO? 
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DOFPOA.P11  09-FEB-77 10:32 136 EXERCISE brv0. ALL INTERRUPTS ON, TRUNCATE MOUE 
ace Se ERT H ERCIGE DivD ALL INTERRUPTS ON, TRUNCATE MODE 
28 aC amioepcne pam spear 
3210 002376 > nov , SORETE EXPFEA ADOR OF iNSTR BEING TESTED 
sis 002400 HOY fers ie Hei TS flan Pec * ANSWER 
ia ctr Ha ; R FPU FER 
Bi Oe ae Be 
#217 ISR PC ON GET RANDOM INPUT DATA 
sig JSR Rs SPOL jENTER POLISH MODE : 
3557 * HINUM i pen a HBRRe it aT aRK (HENUN 
3222 SDIV ADDRESS OF FORTRAN DIVIDE 
5 , ANS2 ‘POP 4 WORDS AND EXIT POLISH MODE 
MOV SFPS, RO ;DISPLAY FLOATING POINT STATUS 
3226 LDFPS #040200 :SET FID FD 
3227 LDO LONUM, ACO 3L WITH A RANDOM NUMBER 
3228 LOD HINUM: ACL LOAD AC] WITH A RANDOM NUMBER 
B50 LOPS mise ft Sr NT WETS a 
ay 001110 MOV #. +6, SLPADR a, LOOP ADDRESS 
so $ SHREK RRERERRRRR REESE ERE EERE RRA RE SARA ALA LARA 
3235 LOD AcO,ACce sLOAD ACO INTO AC2 
3236 DRET6: DIVD AC1,ACe ‘DIVIDE AC] INTO ACe2 
3237 as STEPS FPS ie ed FLOATING POINT STATUS 
ea BF yg OWE ANSHE 
an ERROR Bo" Pee “ey, 
3243 DERR6: TST SFPS ERROR BIT SET 
3244 gPL prsTe iN DONT GET EC/FEA 
sup TST EC §, CHECK STATUS 
3247 002402 CHP FEC, SFEC CHECK THE FLOATING EXCEPTION CODES 
ERROR 32 FEC IS WRONG 
1 002404 1S: CHP FEA, SFEA nts FLOATING PC 
3253 Se 01 ERROR 32 :WRONG ADDRESS IN FEA 
3255 1 DTSTb: CMPD AC2,AC3 COMPARE FPU ANSWER TO FORTRAN ANSWER 
325 Ot cece ce : COPY FLOATING CONDITION CODES 
3528 - COMPENSATE FOR FORTRAN { Cra ies. 
350 pete 37 000001 o02414 ap 7 {ANei + i OACREMENT FPU ANSWER 
3261 Olbe22 537 O0e4le ADC angi +3 . 





FPU ADD/SUB/MUL/DIV enn Der MACY 11 st aaa 09-FEB-77 


DOFPDA.P11 


3267 


= 
3268 
ef 
3271 
En 
ee 
En 


09-FEB-77 


Ss AIS Ee mae gag 
es 


DEND6 
po0002 002414 SUB #2, ANSI +6 t DECREMENT FPU ANSWER 
ier 3s OOe41¢ Sec ANS 1+4 
be419 SBC ANS1+2 
SBC ANS 1 
1 002406 CMPD ANSI, AC3 CHECK ANSWERS AGAIN 
470000 CFCC ; COPY COPY FLOATING CONDITION CODES 
1 BEO DEND6 
174237 002406 STD AC2, ANS! SAVE FPU ANSWER 
104014 ERROR 14 :FPU AND FORTRAN DISAGREE 
005037 002362 DEND6: CLR FPS ;CLEAR FPP FPS BUFFER 
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EXERCISE DIVD, ALL INTERRUPTS ON, TRUNCATE MODE 


ADC 
ered ANS! , AC iEopy cop FLoRTaN CONDITION CODES 








a 


LUE S 


ee ee 
WOnNOTU CWO 


SESSSsssss 


Soe Bas MON DRED 


eee 


: 


Oo BOOOOOCOOOOO0OO 
— ee fee ee tees ee Geen fee bee Dan fee Bee fe fee ee pee 


B ResseeeneeoRRes 


a 


3 
S 


L* fhe * tad 
P< 
eau 


8 
8 


oo 


ag 


002406 


pae408 


001110 


002400 


002402 


002404 


002410 


ADD/SUB/MUL/DIV RANDOM EXER MACY11 27(1006) 
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PAGE 8S 
EXERCISE DIVF, OVERFLOW AND UNDERFLOW INTERRUPTS OFF, TRUNCATE MODE 


ee eee clare DIVE” OVERFLOM AND UNDERFLOW INTERRUPTS. 
 RTEST 37 XERCISE OW AND UNDERFLOW INTERRUPTS OFF, TRUNCATE MODE 
} a rsampemnncrpennysapisonpeuany saieer 
17 A T S 
eM acta aed alts BEAN FRAN ARCHER 
CLR SFEC CLR FOR FEC 
CLR SFEA CLR FORTRAN FEA 
CLR FPS CLR FPU R 
R FEC CLR FPU FER 
R F CLR FPU F 
JSR PC, RANDL2 GET RANDOM INPUT DATA 
.WORD LONUM. HINUM : 
JSR R4, SPOLSH : ENTER 
SPUSH ,LONUM : Z ON STACK (LONUM) 
SPUSH | HINUM : PUSH ON STACK (HINUM) 
SDIV :ADDRESS OF FORTRAN DIVIDE 
,ANS2 :POP 2 WORDS AND EXIT POLISH MODE 
MOV SFPS RO : DISPLAY FLOATING POINT STATUS 
Los iON iL WITH A 
He arene ar 8 pen ra 
LOF ANS2, AC3 OAD ACZ WITH T 
LOFPS 8004440 ry INTERRUPTS Hn SUBXCEPT OVERFLOW AND UNDERFLOW 
MOV #. +6, SLPADR RESET LOOP ADDRESS’ 
; SEKSESELESAASRRRSRAARERSRRSRERREEERE REESE EER REAE EERE RE EERE 
LOF ACO, AC2 
DRET7: DIVF AC1,AC2 eACL INTO A 
STEPS FS, TING POLAT STATUS 
MP SFPS 
BEQ sence IF OK 
TF bern ANS! VE FPU ANSWER 
RROR 16 ‘FPS ERROR 
DERR7: TST SFPS ;ERROR BIT SET ? 
gPL Ist? iN0 T GET FEC/FEA 
TST E $, CK STATUS 
CMP FEC, SFEC i CHECK THE FLOATING EXCEPTION CODES 
PER oR *FEC IS WRONG 
1S: cHP FEA, SFEA i CHECK FLOATING PC 
ERROR o i BRONG @BDRESS IN FEA 
TST7: CMPF  AC2,AC3 AN ANSWER 
mrs: BRE SRE En EB TA EDGE 


Pro, FoR FORTRAN tneceu ere dni 


al ANSTS re] 
Abe ANS1 


_ =_ oe 


a 


Perec ae 


173737 


eee 


002406 


002410 


Se a eon EXER MACY11 27( 1006) 
O9-FEB-77 10:32 137 


DEND?: 


GO? 


09-FEB-77 10:34 PAGE 8 
EXERCISE DIVF, OVERFLOW AND UNDERFLOW INTERRUPTS OFF, TRUNCATE MODE 
free einen PEO EL OATING COND TTION CODES 
6 DEND7 Goer FL OK 
2 ANSI 42 BE CREMENT FPU ANSWER 
CMPF ANS, AC3 ; CHECK ANSHE ANSWERS AGAIN 
CFCC :¢ FLOATING CONDITION CODES 
BEG DEND? ‘BRANCH IF 
STF AC2, ANS! :SAVE FPU ANSHER 
ERROR 13 ‘FPU AND FORTRAN DISAGREE 
CLR FPS CLEAR FPP FPS BUFFER 
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FPU ADD/SUB ZDIv RANDOM EXER MACYIL 27( (1006) 09-FEB-77 10: ? 
D@FPDA.P11 te EB-77 10:32 T EXERC brvb. BveRE CoH Bro UNDERFLOW INTERRUPTS OFF, TRUNCATE MODE 
oh eT OT EXERCISE DIVD. OVERFLOW AND UNDERFLOW INTERRUPTS OFF, TRUNCAT 
30 01 | peemaonposanpectpennstpmenptanay e moe 
1 002376 MOV XPFEA TEST 
ss tite SA, RCIA? SLO SISTEM den 
ee ties 1 ee 
Hees UR CLR FPS BUFFER 
re OIEese tk FER igtR Eby FEA 
1666¢ JSR RANDL4 GET RANDOM I DATA 
3360 016666 .WORD LONUM, HINUM : 
3361 O166 JSR R4, SPOLSH ENTER 
1 , LONUM FSH 4 LONUM) 
16 ” HINUM *PUSH 4 ON STACK (HINUM) 
3364 016706 SDIV ADDRESS OF FORTRAN DIVIDE 
3365 016710 SPOPX  ,ANS2 :POP 4 WORDS AND EXIT POLISH MODE 
=e 5] 016714 MOV SFPS,RO ;DI FLOATING POINT STATUS 
3368 016720 LOFPS 8040200 io + D FD 
3369 016724 LOD LONUM, ACO : LOAD Sait ert A RANDOM NUMBER 
3370 016730 LDD HINUM, ACI “LOAD AC] WITH A RANDOM NUMBER 
3371 Olb7 4 LOD ANS2, AC3 "LOAD AC3 WITH THE SUM 
16740 LOFPS 40 : TURN I TS ON, EXCEPT OVER AND UNDERFLOW 
3373 016744 001110 MOV &. +6, SLPADR RESET LOOP ADDRESS 
a9 ; SEKAKSREASRREAASSARA SRSA RARLRRRSRRRARRERARRRERAARRARS EASES LEEE 
1 17, ACO, AC 
78 Biers {Paeot oreTio: Biyo  ARLACE i OVTDE ACL. IN 
Ol 170237 go2362 tention STEPS FPS : STORE FLOATING OBOnnT STATUS 
3381 aa rite BEG AFRAID FES 
1 174237 002406 S AC2, ANS! SAVE FPU ANSWER 
3383 016776 104022 ERROR 22 FPS ERROR 
re : 17000 005737 002400 DERRIO: TST ;ERROR B 
338 017004 100014 BPL ate 10 NO Boat ToPF re FEC/FEA 
$387 017006 170337 002364 STST FEC : YES, OOHECK STATUS 
3389 017012 023737 002364 o02402 cHP FEC, SFEC ners Te FLOATING EXCEPTION CODES 
2 34 Bt bee 104032 ERROR 32 FEC IS WRONG 
3393 017024 023737 002366 o02404 1S: CMP FEA, SFEA ;CHECK FLOATING PC 
3394 017032 001443 BEQ DEND1O : IF OK 
3395 017034 104032 ERROR 32 WRONG ADDRESS IN FEA 
33 017036 173702 DTST10: CMPD  AC2,AC3 ;COMPARE FPU ANSWER TO FORTRAN ANSWER 
335 338 BIDS ace BEG” DEND10 sCOeY FLOR TING COIN CEES 
3400 i COMPENSATE FOR FORTRAN tNACCURACIES. 
3401 017044 174237 O02406 0) SAVE FPU ANSWER 
3402 017050 062737 000001 ooe414 ADD of eANS Tob INCREMENT FPU ANSWER 
3403 017056 005537 O0e4i2 ADC ANS1+4 











10? 
PAGE 98 


EXERCISE DIVO’ OVERFLOH AND UNDERFLOW INTERRUPTS OFF, TRUNCATE MODE 


j 
i 
FPU ADD/SUB/MUL/DIV XER MACYL1 27( 1006) 
| DOFPDA.P11 Oe to: ae 40 
| 3404 017062 005537 002410 ADC ANS 1+2 
Ho Mid: aie Base CMPD ,AC3 3C AGAIN 
CFCC :COPY FLOATING CONDITION CODES 
309 O17 ibe mh 002414 ST Cate OR OEHENT SPU ANSWER 
3410 pi710 Neate ae ANS 1+4 ‘ 
ae O17114 005637 ooe410 BC Ne 1+2 
ait5 b> tse aed iat CMPD Ane, ACS ;CHECK ANSWERS AGAIN 
a4 017130 170000 CFCC coal : COPY FLOATING CONDITION CODES 
Hie eae Trea? 002406 8 2,ANS1 : FPU ANSWER 
a1 17140 104014 ERROR 14 ?FPU AND FORTRAN DISAGREE 
$113 017142 005037 002362 DENDIO: CLR FPS ;CLEAR FPP FPS BUFFER 





JO? 
SEP RT ee HONS. GER MACY 2701006) ceRcTSe DIVES ENTERRUBT DISABLE SET, ROUNDING MODE 


; a ee ee TeS DIVE INTERRUPT DISABLE GET ROUNDING NO 
{TEST T SET, ROUNDING 
| anteentenensnstonesaniensskatoansesunsoneneenis Trtttirtttit 


ne 171 tity 

3 ie 3 : 
See Ee pe as BRU EU 
Sioo 819150 pesos? | pheuOd aR OSER ietR FORTRAN FER 
Paes at ta Ee fee Bren 
3131 1 CLR FEA CLR FPU 

17210 14 ISR :GET RANDOM I DATA 
3433 gizel4 002436 WORD LORUR, HINUM : 
2 pt 7sse ngeees $3cH , LONUM iBNen 2 RORBS OR TACK ( 
343% 017230 Oe3S62 002436 SPUSH  |HINUM : PUSH HORDE STACK (HINUM) 
3437 o17es 026434 SDIV *ADORESS OF FORTRAN DIVI 
s138 17236 023612 OO024I16 SPOPX  ,ANS2 teh daoeboadigss POLISH MODE 
at GEE UE Bos Sas ‘Sina 
3442 017252 172437 002426 L LONUM, ACO HITH & Benoon NRE 
ct O1Fee8 170127 Giese UBF ig OS Be NTERRUPT D AND ate BITS 
sie 017272 012737 017300 001110 NOV #.+6, SLPADR rem Be aE 
ae ; AKAKELAAREREASLEKAASRERAAREARERREAAREERRARERARAARELA LHRH RAE SE 
3450 017300 172600 LOF aco, Ace LOAD ACO INTO AC2 
3451 017302 174601 DRETI1: DIVF  AC1,ACe DIVIDE ACL INTO ACe 
3452 017308 70237 g02362 a STEPS FPS j STORE FLOATING POINT STATUS 
eH 01734 1 = BEQ i i AENCH IF OK 

17328 1 002406 STF AC2, ANSI ‘SAVE FPU ANSWER 
3455 017324 104016 :FPS ERROR 

1 002400 RR11: TST jERROR 8 8 
Bios pizase foeoi4 DERI: Tae R Ly AGT Bont GET FEC/FEA 
Eats 017334 170337 002364 STST FEC : YES, OOHECK STATUS 
Sie> 017340 029737 002364 002402 cHP FEC, SFEC CHECK THE FLOATING EXCEPTION CODES 
ses B17 360 04026 ERROR 26 :FEC IS WRONG 

017352 002366 002404 1S: CMP FEA, SFEA :CHECK FLOATING PC 
3467 017360 001401 BEQ oTSt11 : 
ae 017362 ERROR 26 WRONG ADDRESS IN FEA 

17364 173702 DTST11: CMPF § AC2,AC3 ;COMPARE FPU ANSWER TO FORTRAN ANSWER 
471 017366 470000 CFCC : COPY FLOATING CONDITION CODES 
ce 017372 174 002406 iConPensaTE FOR en se re Ses 

es Reta leaner Boose sadn abe aL ASL 2 - PENT we . 


| KO? 
4 tie by yn. XER MACY11 i O9-FEB-77 10:34 PAGE 90 
| hoFPDR Pll EXERCISE ivr, INTERRUPT DISABLE SET, ROUNDING MODE 


4 17 ana FCC etapa geet COATING CONDITION CODES 
Fa TRE He = ia 
3481 Bt tuoi RROR i pave fPU FOR DISAGREE 


3483 017426 005037 002362 DEND11: CLR FPS ;CLEAR FPP FPS BUFFER 


ree 


a 
s 


vo 
oo 
ee 


2? 


PORE ps ngs 


£o 


wal 


Tee conrrrrereer tre 


Ph bao fre Pe pee Ff Pee Be bas he ee es Bs he hs me 


Sere = AREER RE 


RRRRRKRR RRR 
oe 
WODNU£ Wwr-O 


ooo e0OoO C00O CGcO0OO 2000000 
sm ot 
om © 


be ee ed ee ben po gens bt ed oe De pe a Ft pn pee 


HAASAN 
Gh Oke Fk SRE & 


oO 
e 
3 


IV RANDOM EXER MACYL1 27(1006) 09-FEB-77 yor ge PAGE 91 
09-FEB-77 10:32 THe EXERCISE DIVO, I ISABLE SET, ROUNDING MODE 
s3 HEFLAREFELKKGEPSEBGSSFRRSLERHEK AFLG RS RESRERSSELRSSERLSRRELERHESS 
: 42 EXERCISE DIVD, INTERRUPT DISABLE SET, ROUNDING MODE 
j sdeeeetnoseeneeenessescessabessesessesccssnesssnssbessesenssees 
poo 017566 002376 : Roe T12, sADOR OF INSTR BEING TESTED 
2737 047600 002400 MOV 804 rps” SET FID IE BITS IN FORTRAN ANSWER 
ete ROSES eR FORTRAN FEB 
Cosas CLR Ha tet a FPS BUCFER 
364 CLR FEC -CLR FPU C FER 
peeees Sh RANOLY ‘geF Feu FE rReUT DATA 
Sas? ee  RAEAEE fewer waa to 
tema: Mees Bris LOW Pus 4 His GN Sack (Lom 
She sPUS * HINUM : 4. OR ON TACK (HINUM) 
l2 oO2416 SPOPX  ,ANS2 + Bop a HORDS BD EX 1) POP ESH MODE 
0 002 MOV RO :0 FLOATING POINT STATUS 
Hie fee a ee er 
5039 Giese top HIN Al ‘Loe et | SUM 
170127 047600 LOFPS pi hid eee I pieaaLe AND INTERRUPT BITS 
012737 017564 001110 MOV #.+6, SLPADR RESET LOOP ADDRESS 
$ SEEKS KERKES AERA AALERRRSRRRRSREREREEEREEERRER RELL E RAE RAE RHEE 
ai snerie: Hy REE HPO POR IMT Rn 
170637 902962 : gts Pee i Btyae FLO rine POINT STATUS 
362 o002400 CMP FPS. SFPS : CHECK 
1403 BEQ DERR12 ‘BRANCH IF OK 
002406 STD AC2, ANS! ‘SAVE FPU ANSWER 
ERROR 22 ‘FPS ERROR 
005737 002400 DERR12: TST ; ERROR BIT of ? 
100014 OTsT12 NO, DON FEC/FEA 
170337 002364 STST FEC YES, CHECK STATUS 
923737 002364 002402 CMP FEC, SFEC ; CHECK THE FLOATING EXCEPTION CODES 
1401 BEQ 1§ ‘BRANCH IF OK 
104032 ERROR 32 FEC IS WRONG 
023737 002366 O02404 1S: CMP FEA, SFEA ;CHECK FLOATING PC 
001 BEQ piste : 
ERROR : SS IN FEA 
173702 DTST12: CMPD  AC2,AC3 COMPARE FPU ANSWER TO FORTRAN ANSWE 
i CFCC ‘COPY FLOATING CONDITION CODES 
1422 BEQ 12 tERSHERS CK 
re SEP FO Te ac 
17353) 1 oo2414 SUB #1 ANS1+6 i BECREMENT FPU ANSWER 
005637 o02e412 SBC ANS1+4 


; CHECK ANSWERS AGAIN 

fo de CONDITION CODES 
; F 

; SAVE FPU_ANSWER 

;FPU AND FORTRAN DISAGREE 
;CLEAR FPP FPS BUFFER 


EXERCISE DIVO, INTERRUPT DISABLE SET, ROUNDING MODE 


S Se 
tf 
= 
a o —_ 
S>y € uZ 
a 93 
cS See we: £ 
oe 
ee gettges 


DEND12: CLR 


T42 


09-FEB-77 10:32 
bose? 
77737 
agisas 
742 
04014 
017722 005037 002362 


-Pll 
i 
0 
0 


ee ae RANDOM EXER MACY11 27(1006) 


ee! tases 


ee ee 





FPU ADD/SUB/NUL/DIV RANDOM EXER MACY11 | es 09-FEB-77 


10:34 PAGE 93 
Pll $09-FEB-77 10:32 T43 EXERCISE DIVF, INTERRUPT DISABLE SET, TRUNCATE MODE 


5 BR EEE Eg a EH EEE EE 
i aTEST 43 EXERCISE DIVF, INTERRUPT DISABLE SET, TRUNCATE MODE 
ig SHE SEE 








DOFPDA. 
S31 -# SEEEEE 
SB ee téTu3: SCOPE ' on 
nie By RRR BPG FYI Bn wae 
Be a ae eh 
es five ee fees oo EAT aera 
356 1770 i Sef Pe Revo 2 ia RANOOR IRPUT- BaTA 
eS 3560 ise RY SPOLSH ENTER POLISH 
Se fen fees a i Alar Wits Odes pam 
= deoole Spopx ANS BOP LORDS’ AND EXIT POLTSH MODE 
penn 002400 MOV —SFPS_ RO DISPLAY FLOATING POINT STATUS 
a 3 ee ther aOR iC WITH @ RANDOM NUMBER 
: ie LDF nie Acs LOAD ACA MIT THe oun 
cae Beouee | 12757 Ge00e0 001110 HOV? B+, SLPAOR SELCIITERMUEL QIGAGLE eo twTeRRUP ite 
2 5 LEAKS SSLERA SESSLER REESE SEER REEL ESE REE R ELLA AERA E LAER RES 
3579 020060 172600 LOF ACO, Ace 
3680 Oe00e2 17460 DRETI3: DIVF  ACL’ACE iD DIVIDE A Pat INTO. Ac NO Fpeaene 
Se EE Ee BERS occu |i Eeteees «Re Fg at 
020076 001403 BEQ DEPR13 ‘BRA 
3584 020100 174237 002406 STF C2, ANS! SAVE SAVE. FU ANSHER 
ee O20104 104016 16 FPS 
020106 005737 002400 DERRI3: TST —SFPS ;ERROR BIT SET 
233 rants 10a? 002364 ere Peet iN Ogtecks STATUS socren 
3591 020120 023737 002364 o024O2 CMP 6s» FEC, SFEC ;CHECK THE FLOATING EXCEPTION CODES 
ee is a i Fre ak 
35% 201% 29737 O23 OOAIOY 18: cP FER SFEA ;CHECK FLOATING PC 
Si Benive So4dee ERROR Be fey ADDRESS IN FEA 
co wae ira a a “en 
3605 020164 005537 002406 ADC ai inet 


BOS 


FPU ADD/SUB/MUL/DIV RANOON EXER Machin 271 71006) 09-FEB-77 


DOFPDA.P11 03-FEB-77 1 





0:34 34 
EXERCISE ove, INTERRUPT DISABLE SET, TRUNCATE MODE 


ANS, AC3 : CHECK RS AGAIN 

, Coby FLoatine CONDITION CODES 
a3 Are 42 iP CRENENT Pu ANSWER 
ANS, AC3 ; CHECK AGAIN 

: COPY FLOAT NG CONDITION CODES 

a 
13° :FPU AND FORTRAN DISAGREE 
FPS ;CLEAR FPP FPS BUFFER 


a 


SSR SEE ERED RE BSB ORR OORT RSS SER ToRe SOBRE LR: aM RONEN NCS : 


ADD/SUB/MUL/DIV RANDOM EXER MACY11 2 
-Pll 09-FEB-77 10:32 





K a] 
l2 
1 
72737 16 


Rania 
8 
? 
oe 
5 


8 
g 


001110 


002400 


- 


A i 
: : Re 


S ies & 


002366 002404 





002414 


7( 1006) 
T44 


CO8 
09-FEB-77 


10:34 PAGE 95 
EXERCISE DIVD, INTERRUPT DISABLE SET, TRUNCATE MODE 


Sb Si ab ab ab ab ab AE ab aE SE ab a bb a a a vga aaa aa aa a a aa 


tATEST 44 


T 
* «4H HEHEHE HIHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHE HEHEHE 


téT44 


DRET14: 


DERR14: 


1$: 


DTST14: 





XERCISE DIVD, INTERRUPT DISABLE SET, TRUNCATE MODE 


MOV T14,EXPFEA ; TR BEING TESTED 

mY SESSA BPEE® 00". 06 RGTEPER T67ERrem are 

CLR SFEC CLR FORTRAN FEC 

an Fe a FOES Be 

CLR FEC CLR FPU Fee BEEER 

CLR FEA CLR FPU BUFFER 

ISR PC, RANDL4 GET RANDOM I DATA 

.WORD LOMUM. HINUM : 

JSR R4, SPOLSH ENTER POLISH MODE 

SPuSH , LONUM ; PUSH 4 ON STACK (LONUM) 
fale i POBRESS “OF FORTRAN DIVIDE — 

pee , ANS2 BOP a noRDS pal EXIT POLISH MODE 

MOV RO 0 FLOATING POINT STATUS 

LOFPS ie 2 1p to FD 

LOD LONUM, ACO : WITH A RANDOM NUMBER 

LOO HINUM, ACL "LOAD AC1 WITH A RANDOM NUMBER 

LOD ase ACS ‘Li WITH THE SUM 

LOFPS #8047640 SET T DISABLE AND INTERRUPT BITS 


NOV #. +6, SLPADR *RESET LOOP ADDRESS 
5, ae Se AE ob AE a a a 9 a a a a a a a a a a aa a a aE 


LOD ACO, AC2 ;LOAD ACO INTO AC2 
DIVD  ACL,ACe DIVIDE ACI_INTO AC2 
STFPS FPS STORE FLOATING POINT STATUS 
CMP FPS, SFPS CHECK FPS 
RALY ;BRANCH IF OK 

STD , ANSI SAVE FPU ANSWER 
ERROR 22 FPS ERROR 
TST SFPS sERROR BIT SET ? 

L OTST14 NO, DONT GET FEC/FEA 
STST FEC YES, CHECK STATUS 
CMP FEC, SFEC ;CHECK THE FLOATING EXCEPTION CODES 
BEQ 1§ ‘BRANCH IF OK 
ERROR 32 *FEC IS WRONG 
CMP FEA, SFEA ;CHECK FLOATING PC 
BE oTsti4 BRANCH IF 
ERROR WRONG ADDRESS IN FEA 
CMPD = AC2, ACB COMPARE FPU ANSWER TO FORTRAN ANSWER 
cece pe : COPY FLOATING CONDITION CODES 
- COMPENSATE FOR FORTRAN [NACCURACIES. 
sT0 AC2, ANS1 ; FPU 
ADD 41 ,ANS1+6 INCREMENT FPU ANSWER 
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FPU ADD/SUB/MUL/DIV RANDOM EXER MACYL1 27(1006) O09-FEB-77 10:34 PAGE % 
D@FPDA.P11  09-FEB-77 10:32 THY EXERCISE DIVD, INTERRUPT DISABLE SET, TRUNCATE MODE 
ADC ANS1+2 
Se eles jog 
CFCC ‘ ‘cory FLoat ing BSRET TION CODES 
BEQ DEND14 
002414 U8 #2, ANSI +6 i BE CRENENT Phy ANSWER 
ANS1+4 
SBC ANS1+2 
SBC ANS 1 
C ANS, AC3 CHECK ANSWERS AGAIN 
:COPY FLOATING CONDITION CODES 
14 ‘BRANCH IF OK 


SF two 
STO AC2, ANS1 ; FPU_ ANSWER 

ERROR 14 ;FPU AND FORTRAN DISAGREE 
DEND14: CLR ;CLEAR FPP FPS BUFFER 





me rr I 


E08 


FPU_ADD/SUB/NUL/DIV RANDOM EXER MACY11 27(1006) O9-FEB-77 10:34 PAGE 97 

DOFPDA.P11 OQ9-FEB-77 10:32 T4S ADOF, SUBF, MULF, DIVF EXERCISER 
3690 Fe aes ge ea oo mlm 
391 {ATEST 45 ADOF, SUBF DIVF EXERCISER 


iesreneggnnvnneeebotesstecsetantvenanasnsescosssrestosson 
;#UNDERFLOW, OVERFLOW INTERRUPTS OFF; TRUNCATE MODE 


meg emmy TT 


002362 CLR FPS 
364 CLR FEC : 
002366 FEA ; 


“Th 


2H 
3S 









wre 
== 
ry 
a] 


l2 


nl SSS | 
e 


ree JSR pc RaNDL2 :GET & FLOAT RANDOM NUMBERS 
OP2, OPS 


PPeRE CR Rere re 


002516 . WORD OP6 
077600 002516 BIT 8077600, OP6 bLeT? S NEVER DIVIDE BY ZERO 


3710 & BEQ 1§ ‘EXPO OF OP& IS ZERO, SO GET ANOTHER 
37le O206S6 023560 JSR R4, SPOLSH ENTER POLISH MODE TO CALCULATE: 
3713 Oe0bb2 002446 SPUSH , OPI : 
3714 C2066 002456 SPUSH ’ OP2 : 
3715 SUB : QNS2 = (OP1-OP2) * (OP3+0P4/0P6) # OPS 
3716 O20674 002466 SPUSH  ,O0P3 : 
3717 020700 002476 SPUSH  ,OP4 ; 
3718 Geg7o4 002516 SPUSH  /0P6 
3719 19 Bobi SDIV : 
3720 e071 40 $ADD : 
3721 020714 025314 - SMUL hie } 
vei tere fess Oo ro : 
l2 o02416 SPOPX  ,ANS2 : 
372] 020730 170127 O40000 LOFPS #040000 :NO_ CHECKS 
os 020734 172437 002416 LOF ANSe, ACO GET SOFTWARE ANSWER 
3728 020740 013700 00 MOV SFPS,RO ‘DISPLAY SFPS 
3703 020744 012737 O207S2 001110 MOV #.+6, SLPADR *RESET LOOP ADDRESS 
3731 a3 SSSR RR RARER REESE RARE RRR RRR REE RRERRRER ERLE RRR R EERE 
3733 020752 170127 OOD4HO LOFPS #000440 ; INITIAL FPS 
3734 be0755 76537 002446 LOF OP1,AC1 AC] <= OPL 
3735 173137 O024S6 SUBF  § OP2,ACI AC1 <- OP1-OP2 
372% 020766 172637 000476 LOF OP4’ AC2 *AC2 <= OPH 
3737 020772 174637 O02S16 DIVF OP6,ACe ACS <- OPY/0PE 
3738 be077% 172237 002466 ADDF OP3,ACe ACE <- OP3+0P4/0P6 
3739 021002 171102 MULF  AC2,ACI "ACI <= (OP1-OP2)#(0P3+0P4/0P6) 
a0 021004 171137 002506 MULF  OPS,ACI ACL <= (OP1-OP2)#(OP3+0P4/0P6) #0PS 
3742 O21010 170237 002362 STFPS FPS -STORE STATUS AFTERWARD 
3743 sty 42535 002362 002400 C FPS, SFPS ‘CHECK STATUS 
3744 Oel0e2 001403 G ETSTI ; IF OK 
3745 021024 174137 O02406 STF ACI, ANS1 -SAVE FPU ANSWER 








FOS 


FPU ADD/SUB/MUL/DIV RANDOM EXER MACY11 27(1006) O9-FEB-77 10:34 PAGE 98 

D@FPDA.P11  O9-FEB-77 10:32 THs ADOF , Ser, MULF, DIVF EXERCISER 

37M 021030 104033 ERROR 33 ;FPS ERROR 

ie 021032 173401 ETST1: Her AC1,ACO ;ANSHER OK ? (FPU: SOFTWARE) 

He ae eye BEQ EEND1 i ERSWER” CHECKS 

3752 ; “ i COMPENSATE IN. L08 FOR INACCURACIES 

v3 ratty ere Spaaee 002410 AOD ne, ANS +2 ‘INC oo KEEP CARRY 
* os . 

He De 1056 7ata? ppSupe CMPF ANSI, ACO CHECK AGAIN 
021062 | CFCC :COPY CC-S 

3758 021064 001460 BEQ EENDI ‘ANSWER CHECKS 

3750 831 0b Ae73? pagan} 002410 $48 #1,ANSI+2 ;INC +1, KEEP CARRY 
ll 002406 MPF ANS, ACO :CHECK AGAIN 

bs 51190 toad epee if Y CC-S 

3764 021106 001447 BEQ EEND1 ‘ANSWER CHECKS 
111 002410 #2, ANS1+2 ;DEC -1, KEEP CARRY 

ve, fells eee ite el : 
ll22 1 CMPF 1,ACO ‘CHECK AGAIN 

3769 021126 170000 CFCC ‘COPY CC-S 

3770 021130 001436 BEQ EEND1 ANSWER CHECKS 

ie 021132 900001 002410 SUB #1. ANSI1+2 ;DEC -2, KEEP CARRY 
il 002406 Sec ANS | : 

3774 021144 173437 002406 CMPF § ANSI,ACO : CHECK AGAIN 

3775 021159 70000 CFCC COPY CC- 

3776 ell 1425 BEQ EEND1 ANSWER CHECKS 

: 11 0024 #1, ANSI+2 ;DEC -3, KEEP CARRY 

358 Sila Shean, OdeHi0 ape ANS 

3780 021166 173437 002406 CMPF ANSI, ACO CHECK AGAIN 

3781 021172 47900 CFCC COPY CC-S 

3782 O21174 001414 BEQ EEND1 ‘ANSWER CHECKS 

pas 021176 162737 O00001 o0e410 SUB #1, ANS1+2 ;DEC -4, KEEP CARRY 

3785 021204 005637 002406 SBC ANS1 : 

378] 021210 173437 002406 CMPF ANSI, ACO CHECK AGAIN 

3787 Geils 400g CFCC COPY CC-5 

3788 1216 001403 BEQ EEND1 "ANSWER CHECKS 
1 174 002406 STF AC1,ANS1 :F R 

oe 65 1559 104 ERROR ae t ANSWERS BON’ T CHECK 

735 021226 005037 002362 EEND1: CLR FPS ;CLEAR BUFFER 


8 
2 





a 


GO8 


assy § 


¥ 
pel 


SeSnneERe! 


ADD/SUB/MUL/DIV RANDOM EXER MACY11 27(1006) O9-FEB-77 10:34 PAGE 99 
-Pll 09-FEB-77 10:32 T46 ADOD, SUBD, MULD, DIVO EXERCISER 
beer OD SUED MLD. DIV) EXERCIQR 
sashes “hema TT se ++ -aaaeepamaguammeapepamcammacmamamanampmaatiie itt 
1 46: 
23 SS ONBERFLOM, OVERFLOW INTERRUPTS OFF; ROUND MODE 
1234 002400 MOV ,SFPS : SOFT TATUS 
Slee Gere mse CET AL 
12% 005037 002404 CLR SFEA 
021252 005037 32 CLR FPS : 
021256 005037 364 CLR FEC : 
Dele62 005037 002366 CLR FEA : 
021266 004737 023404 JSR PC, RANDLY ;GET & DOUBLE FLOAT RANDOM NUMBERS 
021 002446 002476 .WORD OP! OPY : 
10 021276 737 023404 JSR PC, RANDLY : 
ll 130 pFsuce .WORD  OP3, 0P2 : 
12 02 130 OOS Ges404 1S: JSR PC. RANOL4 ; 
14 ps isie haan 002506 BIT es ‘LET'S NEVER DIVIDE BY ZERO 
15 021304 001770 ue BEQ ange ; OPS IS ZERO, TRY AGAIN 
i? 51358 rates oo BEQ . ‘OP6 IS ZERO, TRY AGAIN 
19 021336 004437 923560 JSR RY, SPOLSH sENTER POLISH MODE TO CALCULATE: 
eae teases pussee Hart OPS : /OP1+0P3\  /0P2-0P4\ 
O21 40 $ADD : = [------- I # I------- I 
021354 023562 002506 SPUSH  ,0PS : \ OPS 7 \ OP6 / 
021360 Deby SDIV : 
021362 002456 SPUSH  ,0P2 : 
Oe 1366 002476 SPUSH | OP4 : 
Oel §SuB : 
021374 002516 SPUSH  ,OP6 : 
021400 026434 SDIV ; 
021402 025314 SMUL : 
021404 023612 002416 SPOPX  ,ANS2 : 
021410 170127 LOFPS #040200 ;NO_ CHECKS 
021414 172437 OOe416 LDD ANS2, ACO GET SOFTWARE ANSWER 
021420 013700 O04 MOV SFPS,RO ‘DISPLAY SFPS 
021424 012737 O2i432 001110 MOV #.+6, SLPADR ‘RESET LOOP ADDRESS 
5 5 RERRRERREEEERRE REESE ELE RREL EERE RRA RRE RARE RE REE EE RRR L ERLE EERE 
1432 17 LDFPS s INITIAL FPS 
ated 17oEs?, SO OaaE LOD 1,AC1 ACL <- OPI 
Bing (ae ete BAB Re REL SO SGPa ns 
ates) 17, posaee PhD ACE "ACE <- OP2 
02 1456 17303? o02476 SUBD OPH ACE ince co OP2-0P4 
St aee 17 eas om a "ACI ACI <- (pT sop) /OPex (OP2- -OP4) /0P6 
021470 170237 002362 STFPS FPS : STORE STATUS AFTERWARD 
021474 023737 002362 on2400 CMP FPS, SFPS :CHECK STATUS 


Re Pee eS is Ee -iteitsinsainy isis inyislaly 


HO8 
SOFPOR PLT” Gee asda ttt PERRIP” eGo, GuG0, AULD, O1VD EXERCISER 


3851 21502 001403 a BEd TST ! BRANCH IF he 
5 rata tba 4 i pevE EP 
3855 021512 173401 ETST2: CMPD  AC1,ACO ANSWER OK ? (FPU: SOFTWARE) 
1514 170000 CFCC : COPY cc 
1516 001523 BEG EEND2 ANSWER CHECKS 
;COMPENSATE IN LOB FOR INACCURACIES 
3860 021520 174137 002406 31 ACI. ANSI R 
361 021524 ooo00d2 002414 Bo ANGI +6 ‘INC +2, KEEP CARRY 
021532 002412 Abe ANS 1+4 : 
3863 02 15.36 002410 adC ane 1 +2 
ee IE rates CMPD ANEL , ACO ‘CHECK AGAIN 
3866 O21 CFCC COPY CC-S 
Ee 021554 BEQ EEND2 ANSWER CHECKS 
021556 000001 002414 SUB #1, ANS1+6 INC +1, KEEP CARRY 
3870 021564 002412 ADC ANS1+4 : 
olin fee Ste By Falco 
1 1,ACO CHECK AGAIN 
3874 021604 CFCC COPY CC-S 
3875 021606 BEQ EEND2 ANSWER CHECKS 
3877 021610 002414 SUB #2, ANS1+6 DEC -1, KEEP CARRY 
3878 021616 005637 O0c4ile SBC ANS 1+4 ; 
3879 Oe lbee 005637 002410 SBC ane 1 +2 
eer beless Ioana? | BOSHOE See) NEL ACO ‘CHECK AGAIN 
3882 021636 170000 CFCC COPY CC-S 
3383 021640 001452 BEQ EEND2 “ANSWER CHECKS 
1 000001 002414 SUB #1, ANSI+6 ;DEC -2, KEEP CARRY 
Ea gt bbe? 3 002412 Sac ANS1+4 : 
3887 Oe 1654 005637 002410 SBC ans1+2 ; 
Ee 5 tBeR eee SOSupe CMPD —« ANS1, ACO * CHECK AGAIN 
3890 021670 170000 CFCC COPY CC-S 
ee 021672 001435 BEQ EEND2 "ANSWER CHECKS 
021674 162737 000001 002414 SUB #1, ANS1+6 ;DEC -3, KEEP CARRY 
Se 021702 005637 002412 SBC ano 1 +4 : 
Se Bh Gey Bee ae : 
1716 173437 O0c406 CMPD —« ANS, ACO ‘CHECK AGAIN 
3898 0e17¢2 170000 CFCC COPY CC-5 
3835 1 001420 BEQ EEND2 ANSWER CHECKS 
3901 021726 162737 000001 002414 SUB #1, ANS1+6 DEC -4, KEEP CARRY 
San bStnao poses? pooute td pute : 
3304 nae 005637 BOSE ANS 1 : 
3905S 021750 173437 O0e406 ANS1, ACO : CHECK AGAIN 
3906 021754 170000 CFCC COPY CC-S 
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332 021756 001403 BEQ EENDe ;ANSWER CHECKS 
3909 021760 174137 O0240E STD ACL, ANS1 ;FPU ANSWER 
3310 021764 104036 ERROR 36 SANSWERS DON’T CHECK 
sais 021766 005037 002362 EEND2: CLR FPS ;CLEAR BUFFER 


FPU ADD/SUB/MUL/DIV RANDOM EXER MACY11 27(1006) O9-FEB-77 10:34 PAGE 102 
DOFPDA.P11 09-FEB-77 10:32 T46 ADDD, SUBD, MULD, DIVO EXERCISER 


= 4 9 0 4 9 a a a a a a 
TTL SUB PASS END CONTROL 


SCOPE ;CHECK FOR TEST ITERATIONS HERE 
;IF TEST ONLY EITHER HFP OR WFP, ENTER “EOP” ROUTINE DIRECTLY 
; IF IN eet oA ted A 


ENTER EOP RO} pour PF IF = td Rie. HF P Fp NEXT, 


eeeeee 
WONT £& 
& 
a 





: WEP SUuB-PASS 

4 P SUB-PASS 
076600 000022 NED RUHANT GET WHAMI a _2NTO RO 
b2e00 rate sone Beg err : ‘Aster IF PRESS . 
D2°00E po0002 157132 BIT 8SWO1, ISWR ;1sHFP_OR WEP TEST ONL 
022014 001017 BNE SEOP ‘OSALTERNATE HFP AND HEP TESTS 
022016 012701 010000 MOV #81712,R1 ;HFP PRESENT, AND IN ALTERNATE MODE; 
N2P022 000144 MED RFLAG SO READ FLAGS 
ne o0et BIT RRO : COMPLEMENT FLAG<S>=BITI2=HFP ENABLE FLAG 
040100 BIC R1,RO CLEAR BIT 12 
022034 000401 BR 2s" : 
050100 1S BIS R1.RO SET BIT 12 
022040 076600 000344 2 MED , WELAG REWRITE FLAGS 
eee = panitg AS 4 RO TF Hee AGAIN: START NEW PASS 
Bpat39 0034Se2 a SEF a TF WEP, NEXT’ SUBPASS 


5 ESE EE J 2 0 9 9 9 A a a a a A dd 
-SBTTL END OF PASS ROUTINE (MODIFIED SYSMAC) 


ne aut Bop. ia Bat he a BASS END 


EP RERRPER ORAS ROR SS LEE os oom Gans OR SMBS NES NNS 


THERE vi A THON 

ie Loe 

SEOP: SCOPE 
CLR SERFLG ZERO ERROR 
eR STEHeS sERO TEST TERATIONS 

~ | 
fie | Space Se et ine 
001210 BIC #100000,S$PASS_  ; BUT NEVER LET IN ee NEGATIVE 

DEC (PC)+ : PASS 

SEOPCT: .WORD : 
BGT 





’ 
: YES 
MOV (PC)+,a(PC)+ RESTORE COUNTER 
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END OF ROBIF IED SY 


Sk 
8 


DOFPDA.P11 -77 10:32 PASS ROUTINE ( SMAC) 
3970 022114 000400 SENOCT: .WORD 400 ; 
3971 022116 022106 SEOPCT ; 
pee 002000 157020 TT #gu10, SHR {BELL ON PASS END ” 
Nee 1 1 ; 
022130 104401 001172 SBELL ; YES 
3375 Gee 34 ite 010000 157004 1S: BIT ei ; INHIBIT MESSAGE ? 
a7 eat os g22174 ten iE, C ths iT F naar istics - 
mr 3 o 
338 fesiey Boies Bea S00RRN NOLMONITOR. 
3380 eels 000005 RESET ;CLEAR WORLD 
3 P1659 DON? SENDAD: JSR PC, (RO) ;GO TO MONITOR 
Nee i : 
022164 NOP ;RESERVED FOR ACT11 
3385 022166 000240 NOP 
3987 022170 000137 003404 SDOAGN: JMP ; RETURN 








———— ee er eee - -_-_>- 









2 
3 
: 


ee 


SSGRRceMeaNIIIIINY 3 


SSSESESEES 
WOnrNOu cw O 


222 2G RRR E KCB IS SROERES 


8 
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-77 10:32 STATISTICS TYPEOUT SUBROUTINE 


.SBTTL STATISTICS TYPEOUT SUBROUTINE 


aR as WY Ba 


AND SDIV V ROUTINES. THE DATA A VALUES RET ToKEN 
tAFROR’ THE COUNTERS ADDC?, MULC?, 


j CALLED BY: JSR PC, STATS 

STATS: MOV RO, -(SP) ;SAVE REGISTERS 

8SVEC1,RO ey DATA LINE ADOR VECTOR 
1 F ZERO 


i. 
at 3 
22 


JSR PC, 10$ item LINE 
1S: MOV aSveCe, RO : -O8TA LINE ADDR VECTOR 
F ZERO 


: DAT 
2s: MOV sSVEC3, RO THIRD pate LINE ADDR VECTOR 


esdess 2 


ine 
se 
ST BE 
aa 
sf 


3 


SHOR3 * HE ADE! 
JSR PC, 108 ‘DATA LINE 


22250 012600 3s MOV (SP)+, RO ; RESTORE REGISTERS 
000207 RTS PC EXIT 
-#INTERNAL SUBR FOR DATA LINE TYPEOUT 
013046 10$: MOV a(RO)+,-(SP)—; NUMBER ON STACK, BUMP TO NEXT 
104403 T :T TAL 
006 -BYTE : *MAX 6 O1GITS at ied 
00st TST (RO) BUMPED fo EAST GES TOR ? 
001403 BEQ 11$ *YES, ONTO NEXT LINE 
O4401 022364 TYPE SHT ;TYPE A <HT? 
hoa770 BR Los : CONTINUE WITH THIS LINE 
104401 022366 11S: TYPE SCRLF TYPE A < 
000207 RTS PC : DONE 
;#DATA VECTORS: 


SVEC1: ‘WORD  ADDCO,ADDCS,ADDC6, ADDC7, ADDCB, ADDC1, ADDC2, ADDC3, ADDCY, 0 


SVEC2: .WORD MULCO,MULC2,MULC3,MULCY,MULCS,MULC1,O 


SVEC3: .WORD DIVCO,DIVC3,DIVC4,DIVCS,DIVC6,DIVC1,DIVCe,O 


c ino Enom & 


4 aE ERS | Free 
SHT: asciz < 3; <HT> 
SCRLF: -ASCI 18) «129 ; (CR) <LF> 





a 
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052123 — “Rect Stee Battetics #e#"¢15><¢12><12) 


-ASCII “(NOTE - ALL NUMBERS ARE UNSIGNED OCTAL INTEGERS)<15><12><12> 


-ASCII “ADD/SUB INSTRUCTIONS: ”<15)< 12> 


-ASCII “TOTAL ---OVERFLOW--- --UNDERFLOW--- OP A=0 OP ASO OP A=0 NO"<1 





-ASCIZ “NUMBER TOTAL W/ENABLE TOTAL W/ENABLE OP B80 OP B=0 OP B=0 SHIFT™< 


114 SHDR2: .ASCII <15><12>"MULTIPLY INSTRUCTIONS:”<15><12> 


Diese -ASCII “TOTAL ---OVERFLOW--- --UNDERFLOW--- A=0 AND/OR"<15>< 12> 


051105 -ASCIZ “NUMBER TOTAL W/ENABLE TOTAL W/ENABLE =0"<«15><12> 


$GSGSSGISGSGGAAAERARSS CAS SESOSERERRERERRERENOROSRNENON 





B=0"<« 15><« 12> 


NUMER DENOM™<1S5><12> 
A=0 


--UNDERFLOW--- 


NO8 


O9-FEB-77 10:34 PAGE 106 


;BACK TO AN EVEN BOUNDARY 


---OVERFLOW--- 


€15><12>"DIVIDE INSTRUCTIONS:"<15>< 12> 
“TOTAL 
“NUMBER TOTAL W/ENABLE TOTAL W/ENAGLE 


STATISTICS TYPEOUT SUBROUTINE 
ASCIT 
-ASCII 
ASCIZ 
EVEN 


z 88 a ee 


a 2 Escalate ——e anid 
4 Ea ea ieee 


B=NRASRRG 


Od ad ad nd ed od Ht we ee 
ESTES SESE SIN SETS : 


hin 
8% SodISMshSSQV I LORIITAS RS 
& r rT 


XER MACY11 27( 1006) 


/OIV 
09-FEB-77 





-Pll 


on lon henhontendonbonhontontonkeakenhonhenbes!) 
rr77777 777777 77 
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DOFPDA.P11  09-FEB-77 10: PP TRAP CATCHER 

4130 .SBTTL FPP TRAP CATCHER 

is Bam ey FPP: Woy {Sc FawORs 160 UB BS FOR BISRAY 

‘ tras Bares are? Fee 

aise BS a3¢9 hess? passe2 S FBS EL FEL, 

1 023354 100005 BPL 1S ior - BIT SET 4 Taner? 


41 040000 002362 BIT #040000, FPS est . 
4140 Dose 1001 BNE 1$ eee 
IGNORE ORE TT, 
023366 BR 
023370 


1 
104015 1S: ERROR 15 ; I IMENPECTED” FPP TRAP 

4144 13746 002372 2s: MOV FPPOPS, - (SP) : 

4145 1 002370 MOV FPPOPC,-(SP) =P 

41Me O23402 900002 RTI ‘CONTINUE, RECOVER AT LAST TRAP ONLY 
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10: RANDOM NUMBER GENERA 


D@FPDA.P11  09-FEB-77 
4148 .SBTTL RANDOM NUMBER GENERATOR 
4150 ; #CALLED BY JSR PC,RANDLY - FOR DOUBLE FLOAT NUMBERS 
4151 i -WORD 'NI,Ne - IN LOCATIONS Ni AND Ne 
4153 1 JSR PC,RANDL2 - FOR SINGLE FLOAT NUMBERS 
41 ii .WORD 'NI,Ne  - IN LOCATIONS Ni AND Ne 
4156 023404 O10546 RANDLY: MOV RS, -(SP) ;SAVE_RS 
i Oe 3405 1270S 000004 HOV #4 RS ;4 WORDS AT EACH 
4) peas 10546 RANDL2: MOV RS, -(SP) t SAVE RS 
4160 1g 1270 ooo002 MOV #2,RS 2 WORDS AT 
416 1 RAND: MOV R4, -(SP) ; SAVE RPG TSTERS 
41 1034 MOV R3,-(5P) : 
41 102% MOV R2,-(SP) : 
4164 EY 101% MOV R1,-(SP) : 
4165 1 MOV RO’ -(SP) : 
4166 CLR -( Sp) “EXTRA REGISTER 
416 016600 000016 MOV 16(SP),RO GET PC FOR RE TURN 
41 012003 MOV (RO)+,R3 FIRST ST P 
416 12004 MOV (RO)+)R4 : SE DEST PTR 
4170 O23446 010066 000016 MOV RO, 16{SP) : STORE NeW URN 
4171 11300 MOV (R3), RO "RO INITIAL R 
478 011401 MOV (R4)'R1 *R1 INITIAL 
41 12702 000007 1S: MOV #7, Re ‘SHIFT COUNT 
4174 Oes462 OO0SDIE CLR (SP) * CLEAR L08 
4175 23464 2s: ASL RO ; SHIFT T 
4176 O23466 eatin ROL Ri ; AND ROTATE CARRY INT 
4177 e170 116 ROL (SP) ; an ROTATE CARRY INTO Eby 
4178 Oe34 SOB R2, 2 i7 SHIFT 
4179 74 061316 ADD (R3), (SP) : # TO MAKE # 129 
i fee fer ar ne tae eee 
Wie Geet Obie ns Sg AC a 
4184 te19 peerne ADC R1 , fea 
0235 1 16 ADC (SP) ; CARRY 
4 1 047401 ADD #047401, R1 ; CONSTANT 
16 ADC (SP) iP RO 
16 000006 ADD #000006, (SP)  ; ADD Why 
1600 800 (SP), RO i REPRIME oHITH MTOHEST DIGIT 
10023 MOV RO, (R3)+ fet 
O101e4 MOV R1,(R4)+ Ay 
1 SOB RS' 1S ‘LOOP FOR REQ’D NUMBER OF WORDS 
005726 TST (SP)+ ; POP TEMP REG 
1 MOV (5P)+,RO 
Oieb01 MOV (SP)+'Ri t RESTORE REGISTERS 
12602 MOV (5P)+'Re : 
012603 MOV (SP)+)R3 : 
012604 MOV (SP)+,R4 ; 
012605 MOV (SP)+/RS : 
000207 RTS PC ‘ RETURN 
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-SBTTL POLISH EXPRESSION ROUTINES 
VALURTION OF ALGEBRAIC EXPRESSIONS. BY THIS, VE PERN 
ped mk a ie eee “a a oo oe 
ho AND 


erat ed 


ae 
ae nye Hee fie es 
SSENIRTF Uh Mh HCEEEE ME Seth Door Pa 


HHEXRPPLE 
+ vcmemeauee 
; #COULD BE EVALUATED BY THE POLISH EXPRESSION: 



















E ar OTHER ISH prs TONS POSSIBLE FOR POUT ING 
tN CE RE IS THAN ONE WAY 


ATE R GIVEN EXPRESSION. 


i 

;# 

;# 

;# 

;# Hart ; TACK 

;# $SUB ;FORM C-D ON TOP 

3% ;NOTE - THE TOP TWO OPERANDS ARE NOW: 
;# : (A+B) AND cy 

;# ou spon (A+B) # (C-D) ON TOP 
i: E ;POP RESULT FROM STACK INTO E 
j #NOT 

;#TH 





-#THIS ROUTINE ENTERS US INTO POLISH MODE 
000134 $POLSH: JMP acR4 ;ENTER POLISH MODE 


iby EP hod Soon BO dk QCATION SPECIFIED 






12400 CRY MOET PTR TO SOURCE 
05737 002400 TSTB srs" ; 

Teo4e 000006 MOV 6(RO),-(SP) ;PUSH DOUBLE ON STACK 
16046 000004 MOV 4(RO),-(SP) : 

16046 000002 1S: MOV 2(RO),-(SP) PUSH FLOAT ON STACK 
11046 MOV (RO), -(SP) : 
000134 JMP a(R4s+ : 

ROM STACK INTO LOCATION SPECIFIED 





;#POP OPERAND F' 
;#IN CONTENTS OF NEXT WORD AFTER SPOPX CALL 





LL el 





S. 
22 
= 
am 


F/D MODE 


EQS 
09-FEB-77_ 10:34 PAGE 110 


ISH EXPRESSION ROUTINES 


27( 1006) 


/MUL/DIV RANDOM EXER MACY11 
O9-FEB-77 10:32 


a eee 


‘POP DOUBLE FROM STACK 


;EXIT POLISH MODE 


1$: 





FOS 


/ /DIV_RANDOM EXER MACY11 27(1006) O9-FEB-77 10:34 PAGE 111 
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-SBTTL FLOATING POINT SOFTWARE ROUTINES 
; "FLOATING POINT SOFTWARE ADD/SUBTRACT ROUTINES 
ae i e's Me | My yt iF oe re Bt ON THE STACK 


NG UPON WHETHER THE 
CATO FANE A TaeHe AolerBRRE 


4268 
4269 


we wees 


EXAMPLE: SDDRCOPERAND A) SODRCOPERAND A) 
BOpR C OPERANO B) BQORCOPERAND 8) 

ADDR (RESULT) ADDR (RESULT) 

RESULT=A+B RESULT=A-8 


NOTE ROUTINE IS CALLED THROUGH POLISH MODE OPERATORS. 

“pe ee SE a le ia 
BARR e ans CATER TRURCHTED BAEK 1D CIRCLE PRECISION 
FROM THE DOUBLE PRECISION RESULT. 

STAT Age 


V C BITS OF SEPS ARE SET AS FOLLOWS: 
N= ft RESULT NE 


GATIVE (IE, BITIS = 1), 
(IE, EXPONENT = 000(8)), 


es! 
om 
ARITHMETIC OVERFLOW OCCURRED, 
SE v=0 


3 


oe 


CONDITIONS: 
4 fee He OVERFLOW ENABLE” BIT 
709) I IF PLD BIT IS SE T 


) 
L ay, 


fe Brea THE RE 
Wie 4 ee i! AH, 
(BIT10) IS ZERO. IF murs BT 


ilo RED RORY th RESP, 


SFEC MILL BE SET T 2(8) AND SFEA W ILL BE LOADED W 
HE VALUE IN LOCATION “EXPFEA™ 


ALL AEG S TERS CTT PRESERVED UF Pot ENTRY, AND RESTORED UPON 


ee eee ee ee ee eS ee eS ee oe SS eS SSeS ee S Pee eee Se St 


lle ltt Rt te eee ted ek eh Le te ie te te te i te te ee ee tL ee te Te 








ey 
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RANDOM EXER MACY11 er -FEB-77 34 lle 
-77 10: FLOA NG IN SOFTWARE mend 


;# ADAPTED FROM POP-11 FORTRAN SOFTWARE 
;# BY DONALD NORTH, SEPTEMBER, 1975S. 


-FEB- 





INSET NORMAL BIT 


062716 100000 $SUB: ADD #100000, (SP); CHANGE SIGN OF TOP ITEN 
moses, Goes goewoo eps he ConTts BITE NS Vee 
1 ieee Bi ) Hass Re Bi 
0402 ant ez 
737 027672 JSR SCONV +O NODE : CONVERT 2 F OPDS TO D 
10046 275: MOV —~RO’-(SP) 
010146 MOV «RI -( SP) 
1 MO Re, (8B) SAVE ALL REGISTERS 
1 MOV R3,-(SP) ; 
1 MOV RY, -(SP) 
O10S46 MOV —s RS - (SP) 
O0SO46 CLR -( SP) CLEAR SIGNS 
005004 CR RY ‘CLEAR EXPONENTS 
ASL «BU SP) ISHIFT OUT SIGN OF TOP ITEM 
ROL «BRC SP) ; 
ROL 20(SP) 
ROL - 16¢5P) SHIFT Al 
156604 000017 BISB 17(5P),R4 T El 
60104) BNE aS : JUMP 1 NON ZERO 
S (SP)+ SELUSH S TGNS 
032766 077600 o00024 BIT #077600, 24(SP) =a, 0 700 
POSS on2532 Fe = BBbce ie of TR aso 
000137 024762 IMP 03S 
pete 31S: RB RS) Fa SIGN OF 2ND ITEM 
ice banose Roc aap} 
006166 000030 ROL -30(SP) 
006166 90002 ROL —-P&( SP) ‘SHIFT A2 
1 000027 BISB -37(SP),RS tGET E2 
001042 BNE 2S ‘JUMP IF NON ZERO 
06016 RORB (SP) SRECONSTRUCT Al 
00016 ROR _ 16(5P) 
ROR 20( SP) : 
006066 00022 ROR 22 (SP) 
AOR ete ogcsp) IFIRST ARG TO TOP OF STACK 
YUUL 4 
ates nieve Hoy Beps’S0cap) 
O1e666 000022 000032 mov — B2(5P),32(5P) 
000024 000034 MOV - BH(SP)'34(SP) 
1ST  (SP)+ ‘FLUSH SIGNS 
077600 00024 BIT #077600, 24(SP) 820, B= =0 100? 0 
Bos297 992530 Pa BBB m0," ARI BER? Bao 
00137 Gel" 2 en Ee es 
BOTs? beaPie HE BERS ee Pate SER RESULT 
106166 I 2s: ROLB SP one 
MO 


— 
NS 
BS 

=z 

o 

<= 

iw 
sare 
a 
—Tu 
NN~S 
rn 
Sod 


000027 
000017 





+r 
' 


: . cz g z 
a 2 Ze ay iE . 
& & Efe Pe e 
- | y ox ys se of 2 5 § 
gs 8 & gus lan 
a wm FO a a ba, at — ta w 
oss “a8 a ers 
antic sat "9 ae Bee Se 
“ fs FOO ty $s oO x= = O {vv} ve ba ira 
” ~ =—Uurm Me wor -— oC » cor 
aE ps 
Sa Gi 
z av? SeMeSea & axe m 
=: RAAAR  aRnennnnn!|CU 4 mao Oo =, a4 wn 
f 2 BRR ERRRRRRRS— § 5 OS ae See iene ci 
rh PSRNAROSRUTERNS Oe SEES eNSRePeUs Beate ee Ses asec S ea IM 
a 
base— 
wz 
Pa BESSSSSSSSS SSS ALM w aaa E ee aU Ear PSA ESM Nha SeSSS er Esa 
eg a a a = 


esse 

. Reese EOE 
PLES UESELE 00 SEE 
2 GESGAGE IGE GALROLALU LO AALIRRRE Ca Lae Cad CAG RGEG 
SE anGaineDUSDEDENDEDEEDTDOOOVDTOsaTinssis 1 unePONIeTINT 


77760 
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EEE 
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SSBaRTERER SIGS 
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= 
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/SUB/MUL/DIV RANDOM EXER MACY11 27(1006) 09-FEB-77 10:34 PAGE 114 
Pll :32 FLOATING POINT SOFTWARE ROUTINES 
MOV RY, (SP) ;SAVE EXP & SHIFT COUNT 
tad RS,-(SP) : 
V RL; RY ‘SAVE R1 
ASHC RS RO ‘SHIFT HIGH ORDER 
| MOV Re : 
oe4412 ASHC  (SP)_RY ‘SHIFT IT 
: Rees : 
Re iRe DONE 
MOV R SET UP LOW ORDER 
O2e4422 ASHC  (SP)+,R4 DO LOW ORDER 
D244 24 MOV RS,R3 : 
Series HOV (5P)+,R4 ‘RESTORE EXP TO RY 
024432 13$: TST (SP)+ POP EXTENSION 
2 10$: ASR RO ‘SHIFT RIGHT 
ROR Ri : 
ROR Re . 
oe444e ROR R3 : 
tei INe RS. ‘COUNT LOOP 
73: ADO 24(SP),R3 ; FORM SUM 
meaty : 
DOY4E ADD 22(SP),R2 : 
024466 ADC Ri ; 
atte AbD £0(SP), Rl : 
ADC 
CUB ee tee) to HECK F SIGNS 
raat a ee cseaket 
1 BIT RO, #1000 
Devels BEQ 35 fee IF NO NORMAL BIT OVERFLOW 
024522 ROR R1 : 
ROR Re ; 
ROR R 
INC RY j INCREASE EXP 
ees * pe oe ae 
fe ee oe ors 
D24545 002540 INC Apoes :CTR: OVERFLOW 
De4S5e 001000 002400 BIT 8001000,SFPS  ;OVERFLOW ENABLED ? 
Je - 8 m BEQ 34 5 Th ZERO RESULT ED 
etiaad 002400 Aye Fa SFPS YES, of ERROR’ att = 
024574 000010 Oo0e402 MOV #10. SFEC : SET SFEC 
002376 002404 MOV XPFEA, SFEA iE SFEA 
1 16S:  B1SB RY NSERT HIGH ORDER FRACTION 
16 ROR cs )+ : INSERT 
; 
0246 16 ROR RI } 
Sass a : 
ROR R ; 
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DOFPDA.P11 


ae RPT 


FSGSRISS 
MOOnNOU CWT 


FFT aF TE RGR Nan RON RON NES 





09-FEB-77 


~ 
>= ‘ 


AG 
att 
ee 


xo 


8 
oe 


OoO0O 
a oe 
-_ 





peers 


an 





002400 
002400 
Dassae 
002404 


FLOATING POINT SOFTWARE ROUTINES 


20s: 


17$: 


18S: 


26S: 


14S: 


O9-FEB-77 10:34 PAGE 115 


4 
oe 


SBRSEPERS 


: 


cee 
~ a 


Ron 
RS 


~ 
% 
~ 
+ 


PESSRSRY 

Se sence 
as 
2 


=e eeeeess 
Qr r++ ++ +e 
BH RBZAS 


ages) 
at 5 


on- 
oo 

Bes 
—++ 


B2BBZBEBBE 


OVERFLOW ON ROUND ? 


YES - SET y BIT 
OVERFLOW ENABLED ? 


eres Ree ENABLED 
grt eRROR BIT 

sSET SFEC 

: AND SIGN 
INSERT LOW ORDER FRACTION 


TELUSH SIGN 


'SET 2 BIT IF EXPONENT ZERO 


'SET N BIT IF RESULT NEGATIVE 
PRESTORE REGISTERS 


'POP SECOND ARGUMENT 
ae B RODE? 

*F MODE - CONVERT 

: DONE 


i CHECK HIGH ORDER FRACTION RESULT 
‘CHECK FOR ZERO RESULT 
ABS VALUE 
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15S: 


1$: 


4§: 


Ss: 


6S: 
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;# 
INC MULCO 
FS, Te 
BM 
FEA Be sconv 
4d att 
v R1'-(SP) 
MOV Re, -(SP) 
MOV R3,-(SP) 
MOV RY, -(SP) 
MOV RS. -(SP) 
ASL 14tspP) 
ROL -(SP) 
CLR -(5P) 
MOVB 21(SP), (SP) 
BEQ is 
MOVB  20(SP),21(SP) 
SEC 
ROR 20(SP) 
MOVB '3(SP),20(SP) 
Rove «| BELEP) 
(SP), 22(SP) 
SWAB 6-4 SP) 
MOVB (SP), 24(SP) 
ae Bie 
(SP) 
ASL 30(SP) 
g(SP) 
TSTB 1(SP) 
BNE 2s 
CMP (SP)+, (SP)+ 
INC MULC1 
IMP 3$ 
CLR RO 
CLR Ri 
CLR R2 
CLR R3 
CLR RS 
ROR 30(SP) 
MOV #16. .-(SP) 
MOV 4O( SP), RY 
BEQ 4§ 
JSR PC, 30S 
MOV #16... (SP) 
MOV 30 (SP), RS 
BNE 
TST 40(SP) 
Fee OBE ais 
JSR PC’ 325 
MOV #16. . (SP) 
MOV 34(SP), RS 
BNE 2 
TST 36(SP) 


118 


;CTR: Tore. NUMBER 
CLEAR stats aiTs WZ v c 


:D-ROOE CONVERT 2 F OPDS TO D 


ane ALL REGISTERS 


re pa ee 


XPONENT 
KEEP MULTIPLICAND EXP 


:SHIF FRACTION LEFT 
NSERT NORMAL BIT 


owe we we we we we we 
~- 


'EXTRA BITS 
;SHIFT HIGH MULTIPLIER 
;PRODUCT SIGN 


’ 
; JUMP IF_NON ZERO 
;FLUSH SIGN AND EXPONENT 
;CTR: =O AND/OR B=0 

; CLEAR PRODUCT 


pie OVERFLOW CATCHER 
ON COUN 
OWEST 
can BIT 
COUNT 

XT LOWEST FRACTION 
TO DO 


ty a, Ta Ee 


a bea ERS 
aS 


‘No PRODUCT YET 
‘ONE BIT FULL PRECISION 
‘NEXT TO HIGHEST ORDER FRACTION 
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DOFPOA.P11 LOATING POINT SOFTWARE ROUTINES 
471 7$ ; 
PF 40 (SP) ; 
BEQ 3 : 
JSR ; 
as 3c ).R4 -GET HIGH ORDER BITS 

¥ , (SPS SEVEN OF THEM 

pC’ a 


; NORMAL eit 
;F RATION COUNT 


iSHIFT OUT NORMAL BIT 


BEART GG: 


'NORMAL BIT FOUND 









MOV 
MOV 
JSR . 
JSR 
TST 
ADD 
ASL 
ROL 
ROL 
fics 
ASL R3 : 
ROL R2 ; 
ROL Ri : ; 
Bee RH i OvUst EXP 
9s SUB 8200, R4 : BIAS FROM EXP 
Pee cy ft eae 
002400 BIT 8002000,SFPS § ;UNDERFLOW - IS IT ENABLED ” 
Fe hEics iO MAE ERE CON ERABLED 
ga240 BIS #190000 SFPS  ;SET ERROR BIT ' 
Baes04 ne As ae a 
10s: fre 4aP7,RS Oe cK FO ow 
x Sor lis’ : f bu 
o02400 BIS #02, SFPS iSeT V BIT ON OVERFLOW 
002400 att Shb i800, SFPS : OVERFL ENAGLED ? 
is C An ER OEREL DN. ENABLED 
002400 aie #1 SFPS SET ERROR BIT’ 
12737 002402 MOV 10, SFEC SET SFEC 
13737 002404 MOV EXPFEA, SFEA SET SFEA 
10500; 118: gtae : 
50204 BIS Re, Ra ‘SHIFT FRACTION RIGHT 
1 s R2 : : 
RI,R2 : 
-— |, ; 
105001 CLARE «=a sCi(e : 
1 BISB = RO, Rl : 
1 SWABCtié;«d‘L: : 
1 CLRB RO : 
150400 BISB RY ,RO : 
Goetee ance (SP)+ ‘GET PRODUCT SIGN 
ROR RO “PUT IN RESULT 
pepo ROR ‘Re : 


SH OR MON 
-Pll 77 10: 






3 
26114 
1 
1 
1 
1% 
144 
1 
1 
1 
1 
1 
a4 
170 
D174 
17% 
4799 opel 
Ibe 
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SeaRRSER 


SAASASRSESS 
NOULSW-O 


Pe Be bbe a a ee 


BRSSSE 


4 
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ROR 


138: 


masses 


+~@w 
“Ww 


17$: 


18S: 


SRRRBRSRRSRS FSS2ubSessess 


INT SOFT 


3 


25 
- 


an hantanianianiand toad 
SSBBVoR 


RBZARZ? LEGS! 


2D 
fu 


RRBZS 
2 8 
4 


B10 
Wane Routines 


{ROUND RESULT 

+ OVERFLOW ON ROUND ? 
“YES - SET V BIT 

it Sven 

sOvEREL cneet : 
ris REL OW, ENABLED 
‘eT SEG” 

aT 


: SET 
“FLUSH SIGN 
;CLEAR RESULT 


'SET 2 BIT IF EXPONENT ZERO 


ISET N BIT IF RESULT NEGATIVE 
'RESTORE REGISTERS 

; 

?CLEAR SECOND OPERAND OFF STACK 
tF OR D MODE 


TP NODE - CONVERT 


; TEST NEXT MULTIPLIER BIT 
;JUMP_IF ZERO 
;ADD IN MULTIPLICAND 


3 
‘SAVE OVERFLOW 
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ADC RO 
ADC RS 
ADD aah 
ADC 

34S: SR RS 
ROR RO 
ROR RI 
ROR Re 
ROR R3 
DEC 2(SP) 
BGT 32$ 
RTS PC 

318: DEC (SP) 

30$: ASR 
BCC 3S$ 
ADD 26(SP),R1 
ADC RO 
ADC RS 
ADD 24(SP),RO 
ADC RS 

35S: ASR RS 
ROR RO 
ROR Rl 
ROR Re 
ROR R3 
DEC 2(SP) 
BGT 30$ 
RTS PC 
;#END OF MUL 


C10 


RECOVER ANY OVERFLOW 





10:34 PAGE 121 
ROUTINES 


;RECOVER OVERFLOW IF ANY 
; SHIFT PRODUCT 


‘COUNT LOOP 
AGAIN 
ITS THIS PASS 


at 1 
feet IER BIT 


USE ONLY afiGH ORDER MULTIPLICAND 


a 


COUNT LOOP 
: RETURN 


~— 
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D@FPDA.P11 O9-FEB-77 10:32 FLOATING POINT SOFTWARE ROUTINES 
48SE LOATING POINT SOFTWARE DIVIDE ROUTINE 
Ss MEALS PGS, SSP DR BREE Me 
Re =| REPLACES Fen WY WITH TrelR Bude? NT. r 
4863 EXAMPLE : 
4864 (OPERAND A) 
4865 
4866 ADOR(OPERAND B) 
4867 SOIV 
4868 
cA gc ivary 


g 


NOTE ROUTINE IS CALLED THROUGH POLISH MODE OPERATORS. 


ALL OPERATIONS ARE CARRIED OUT qe DOUBLE (LENGTH=4) 
PRECISION MODE. SI PRECI 


Sent he CareR TURES ABTS ROE crn 


ROM THE DOUBE PRECISION RESULT. 


STATUS BIT BITS: 
THE N, AND C BITS OF SFPS ARE SET AS FOLLOWS: 
N=1’ 4 et NEGATIVE (IE, BITIS = 1), 


z=] SEESILT ZERO (IE, EXPONENT = 000(8)), 
vel IF Spiel OVERFLOW OCCURRED, 
C20 vs" 

ERO A PRI TMET TI THE RES 
Wut Be ak pas COPA LOw ENABLE’ BIT OF SF 
(BITOS) IF THIS git T, THEN THE T 
WIL y 


ay 2. ean 
alee ot Ba ae * Eltek ie 


PEE Cee PRP RSET EN) Li yi: SRRERERE 
er er Serer er er eT er Tere yer eTTTeee Ter ee eerie ee we 


SOS Se Se ES ES SESE ST OE SS OEE SS SEE SE SESE SE SESE SE OE SEES OF SHOE OS OE OES SESE SS OS SSF ws Oe SH OS SE we we ee OE es SEOs ee we 


ARI OW CONDITION OCCURS, THE RESULT 

WILL BE SeT_T OW ENABLE’BIT OF SFPS 

(erT1Q) f cat hod ET, THEN THE RE RESULT 

re aot). ob, 1H Ser 12(8) i arg) ait ii ae: eer, 

Pr rae Clee, arrae 

FF Bay OR 18 SERB) THe RESUCT ce LEFT ON THE 

STACK WILL BE THE TOR, WITH THE CONDITION CODE 

ACCORDINGLY. T BIT WIL PogrEC CHILE BE 
4910 SET TO 4(8). AND SFEA WILL Be SET tb THE VALUE CONTAINED 
4911 IN THE LOCATION “EXPFEA”. 





ro 


DOFPOR PTT” bo reB o> 10 MMe ee EOP ENG POINT SOFTWARE sca 



















4912 ; 

13 i TE UPON NTRY, AND RESTORED 
ah 'E bsIFUSTRE aS Ee Ree te 
4916 :# ADAPTED FROM PDP-11 FORTRAN SOFTWARE 
4917 !% BY DONALD NORTH, SEPTEMBER, 1975. 
uai a 
493 O4 ct 7 002400 re ane atte :C LEAR. STATUS BER OS ae 
wee eee Iter? Obed ioe Ses ete 
4924 004737 027672 JSR PC, SCONV :F-MODE: CONVERT 2 F OPDS TO D 

1 14$: MOV RO, -(SP) } 

1 MOV R1,-(SP) ; 

1 MOV Re; -(5P) } 
4928 010346 MOV R3,-(SP) :SAVE REGISTERS 
ee eA iss HBB wn | 
‘ 1 077600 000014 att ,14(SP) DIVIDE BY ZERO ? 
doa aaa reeea 002570 sis Sivce *CTR: DENOM=0 
ioe feels fiery fom Ree =k alge 

1 MOV EXPFEA, SFEA SET SFEA 
4937 O26532 000137 Oe7442 JMP : DONE 
4938 026536 O0S000 2S: CLR RO : 
4939 1 CLR Rl ; 
a fen ene oS | 
4Y9H2 026546 Gos04b CLR -(SP) ; 
ion noeean elie _— ro Ot«SDS SRUNERATOR SIGN 

& 00003! see | a1tSP). (SP) 
uae BSeees bpbeie Bree 2 . i NUNERATOR BoP ZERO? 
4948 026566 005237 INC DIVC1 ‘CTR: _NUMER=0 
4949 02657¢ 137 027416 JMP 1$ : YES, 
4950 025576 6S: BISB  30(SP),RO : 
4951 Oebb0z SWAB. SséRRO ;LEFT JUSTIFY NUMERATOR FRACTION 
4952 (e660 1 SEC ‘INSERT NORMAL BIT 
4953 026606 006000 ROR RO : 
4954 10 1 000033 BISB $3(SP), RO : 
435 4 i 000032 BISB 3e( Ri : 
4958 021 isecce 000034 Ae aa(eP) Re , 
we8 Debbi 1 7 BO i 
a ° 

dae) cote [Bens p00 36 ' gi) Rs ; 
4963 026646 006366 000020 ASL 20(SP)  CHIFT SPENOMINATOR 
ude peeeee poppe 00e Cnn gRESULT SIGN 
4966 026660 156604 000021 BISB  21(SP),R4 DIV ISOR EXPONENT 
4967 026664 160416 Sua RY, (SP3 SUBTRACT EXPONENTS 
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ui 


i 


MOV 
BR 
CMP 


GSRLARA ees See Sense ais 


ety ety 
— = =—s 
woo-4 


MOV 
MOV 


DIVC 


REZPSRIGR 
a a be PSA 


Brees 
NESS 
8 


Bauen™ 
<= ong 
33 
oe 


=: 
“ea © 
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Sea Se 
RARE 

Ei: 

D> 


a 
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a3 
um 


lontantantent Landi) 

BUSBoS 

+++ 7WwA 

DwDwDwDwvo 
we 


fu 


a 
“3 8 
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CTR: 
UNDERFL 


izet ERROR B 


; INSERT 


UNDERF 


Mpa 


*NO, ZERO RESULT _ 
‘CTR: OVERELO, ENABLED 


‘BUT SF 1h RESULT 


SINSERT LOW ORDER FRACTION 
ROUND 


; OVERFLOW ON 


YES - SET V 
‘CTR: OVE 
: OVERFLOW 


? 
BIT 
ED ? 


RFLOW 


‘CLEAR RESULT 


‘SET Z BIT IF EXPONENT ZERO 


‘SET N BIT IF RESULT NEGATIVE 


'RESTORE REG 


ISTERS 


H10 


aa ee em, MACYIA EENATING POINT SOFTWARE ROUTINES 
138 
30$ 
318 
328 





IVISOR AND DIVIDEND 


SHIFT QUOTIENT 
EE 
H 
; B 
CHECK LOW ORDERS 
; INSERT QUOTIENT BIT 


* NUMER=DENOM 


TELUSH FIRST ARG 
?F OR D MODE 
iP ORE. convERT 


F 
R 


COUNT LOOP 
: RETURN 
INSERT LAST 1 BIT IN QUOTIENT 
‘FINISH OUT QUOTIENT WITH ZEROS 
: LAG NO MORE NUMER 
; RETURN 


’ 
’ 
’ 
s 
’ 
’ 
’ 
§ 
’ 
’ 
’ 
’ 
’ 
’ 
’ 
’ 
’ 
’ 
’ 

’ 

’ 

’ 

’ 

§ 
’ 
’ 
’ 


RI 
,RO 


ith 2 


SP),R1 
SP) ,Re 
(SP),R3 
SP) ,R3 


id 
. - «+ ~~ on =~ 
++ “+o a 
hie MBDE poy oteNAe cE Shou oto tote uosteutlve 


;#END OF DIV 
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FL 
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RRee Coe eeews See 
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1 
0301 
130 1 
k's 1 
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001104 
151072 
001110 


151040 
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-SBTTL SCOPE HANDLER ROUTINE 
Dap re te oe ae oy rere ee a re gg tea 


ibuas saris por NFB pean VInTO THE BISPLAY REG. CISPLAYCIS:0>) 


: # THE SWITCH OPTI 


;#SW14=1 OOF ONT 
rite =! TNH BIT RATIONS 
j #SWOB=1 LOOP ON TEST IN “SLPTST” 
i SCOPE ;;SCOPE=IOT 
sare 
1S: BIT #81714, ISWR i;LOOP_ ON PRESENT TEST? 
; TART FOR THE XOR tt rYTTT) 
bx arse Br - cope om i eat ON THE | XOR, WESTER S CHANGE 
MOV a -(SP) ii Tuts TEATS RHE ERROR VE TOR 
MOV aE SMERAVEC ie FOR TIMEOUT | 
TST ae bi ON 
Md eof SERRVEC tine THE VECTOR 
et Oe a PoP = 
V + 9° 
SENT 
6S: waNntENO OF Soe FOR THE XOR’ et 
BIT 881708, aSWR LOOP ON SPEC. TEST? 
Rie Serer, STSTNM LR He Rr cut TEST? 
BEQ SOVEP ::BR IF YE 
2s: TSI SERFLG 3 ; ve OCCURRED? 
CMP SERNAX, SERFLG ts ERRORS FOR THIS TEST OCCURRED? 
BHI OR iF NO 
BI #81709, SHR Heed ON ERROR? 
7$: Rov SLPERR, SLPADR ie Cour ADDRESS TO LAST SCOPE 
4S: R THE ERROR FLAG 
. cL sries 13 fea THE NUMBER 9 OF TIERATIONS TO MAKE 
3S: BIT 81711, 2SUR fae TERAT OWS? 
aut oss +: IF TRST PRSS OF PROGRAM 
BEQ me + perennation Co 
ore au IMES,SICNT 3; Hie reer fie FTekar TIONS MADE 
: MOV ‘ ITI 5 Tie, eRe On “COUNTER 
a en a cs 
" MOV He STESTN + COM SUNT EST N IN APT MAILBOX 
MOV SP), SLPADR ::SAVE SCOPE LOOP ADDRESS 
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| DOFPOA.P11 © 09-FEB-77 10:32 SCOPE HANDLER ROUTINE 
! oe if 11637 001114 Moy  (SP),SLPERR =; ; SAVE_ERROR LOOP ADDRESS 
1m BL I ooze ROB Sehnex _f/GhCY lu het EmWOR ON NEXT Tes 
e503 Baterg Bharie Sait TS0~O sover: Bey Sipe eae He TURN ROORESS 


2513 Babel Bo0800 SMXCNT: fod x NUMBER OF ITERATIONS 
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5213 .SBTTL ERROR HANDLER ROUTINE 
PSRPRRAAAGESSSRKARKARLSXRGELAERRERESARERERELLHEAR ESE 

1 ; 

1 iituts'e OUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
e217 AND THE ADDRESS OF THE ERROR CALL 
5619 ie <SHITOH OPT cPr tore Pe VIDED BY THIS ROUTINE ARE: 

2 & ee 
5223 
5225 pote ERROR N ; sERROR=EMT AND N=ERROR ITEM NUMBER 
SERROR: 
ee 919037 002602 MOV RO, EREGO ; DISPLAY RO 
10137 002604 HOV R1,EREGL : Rl 
esa ipsa? DOseio NOV RST EREGS 5 
1 b0eb12 MOV RY, EREGH : RY 
1 14 MOV RS, EREGS ; RS 
see) 1 002616 MOV Rb, EREGS : GET R6&(SP) BEFORE TRAP 
5235 000004 002616 ADD 84: EREGS : 
253 Besse bites an nn oe tag 
il 7S: INC SET 
GPE couse ise = Sern, apremay /iphShuat rent mee” ° 
z is 
rier topes BIT 3 T10, ola gs ? 
S24 001402 BEQ 33;NO IP 
9011 TYPE i SRING 
111 1S: INC 3 : + COUNT NUMBER OF ERRORS 
Sou4 011637 001124 coe. HOV (SP), SERRPC GET ADDRESS OF ERROR INSTRUCTION 
ene Lites? ene 0011 MOVE se, SER STEM ; ;STRIP AND SAVE THE ERROR ITEM CODE 
020000 150576 BIT #81713, dSWR i tecTP TYPEOUT IF SET 
601004 BNE 20S : SKIP TYPEOUT 
030462 JSR PC. STYPERR +360 T ERROR ROUTINE 
oe 104401 001177 a TYPE  ,SCRLF 
e525 122737 000001 001222 CMPB = SAPTENV,SENV =; ;RUNNING IN AP 
1007 BNE 2s NO, SKIP APT PORT 
5254 113737 001120 030404 MOVE SITEN 21S ::SEt ITEM NUMBER AS ERROR NUMBER 
737 031222 JSR PC, SATYY REPORT FATAL ERROR TO APT 
000 21S: -BYTE O 
“BYTE 0 
5258 225: BR 225 ; ;APT_ERROR LOOP 
525 1 150532 2s: TST OSWR ::HALT ON 
5260 14% 10000 BPL 3$ i; SKIP IF CONTINUE 
526 HALT T ON ! 
ee. 001000 1S0S20 3s: BI #81709, ISWR HH ON “SWITCH SET? 
ooe3 1402 BEQ 4§ ::BR IF NO 
13716 001114 MOV SLPERR, (SP) FUDGE RETURN FOR LOOPING 
S265 3M 005737 0011 4S: TST SESCAPE CHECK FOR AN ESCAPE ADDRESS 
e5es Faeias beddte yt + PO Dae RETO 
526 13716 001170 MOV SCAPE, (SP) Fi RETURN ADDRESS FOR ESCAPE 
S268 030446 Ss: 


FPU Sri Oe Se or EXER MACY11 27(1006) 
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D@FPDA.P11 10:32 ERROR HANDLER ROUTINE 


ia 


CMP SSENDAD, d#4e ;;ACT-11 AUTO-ACCEPT? 
RET 6$ ;; BRANCH IF NO 


RTI ; RETURN 


a 


ADD/SUB/MUL/DIV RANDOM EXER MACY11 27( 1006) vaste ER Rout! < :34 PAGE 132 
-Pll 09-FEB-77 10:32 ERROR HANDLER 


5; eee 4 Se A A A A a ab a a ad a a a ad a 
-SBTTL ERROR MESSAGE TYPEOUT ROUTINE (MODIFIED SYSMAC) 


i SERROR TS 10 ye ett the HR Te SERROR TABLES WHICH 


HeCSERRTB) TH Lf TA Br 1 PRINT 









Cea eee eee a NT TREO TCOON § 


tt i 
+ PTR 1 pata RLLES BOOK. 
i epee Sate 6 en NONE 
it 
1 DATA VALUES 
i ier stench LIST OF POINTERS T 
e TO as & OCTAL DIGITS. [ost 
if MUST BE TERHINATED BY A WORD . 
1 OPERAND S LIST FORT: -“" 
i 3) ubaB 15 OF ASCIZ MESSAGE TO 
‘i PRINT aT “START Apore TRE. REST OF LIST IS 
‘i T AS DATA VALUES LAST 
STYPERR: 
TYPE ;START WITH MESSAGE PREFIX, HOT OR WARM 
HOTWRM: .WORD F :PTR 19 SHOT” OR “WARM” 
MOV ,~ (SP) : SAVE 
MOV RI’ -(SP) ‘SAVE R1 
mM s PICKUP ITEM INDEX 
001120 J8SITEMB, RO 
001124 MOV SERRPC, -(SP) edie ree Fee 
ryPoc “ OCTAL, ALL prert 
005300 1S: c RO iG Ist ERROR # FOR TABLE INDEX 
6: : OF 20. BYTES/ENTRY 
006300 ASL ; 
MOV »R1 te 5 
Sie is 7 
ASL RO 4 i 
O70 32 me Uf 
1 henge MOV (RO)+, 28 : +PPecur ERROR MESSAGE” PTR 
001404 BEQ 3$ SKIP TYPE 
TYPE ‘vee * Cone 
2s: .WORD 0 i ERROR MESSAGE” PTR HERE 
104401 001177 a TYPE » SCRLF 
yer ‘ MOV tRdd+, 4s lta ~paTl READER P BR 
001402 BEG i} ia ‘i SKIP Bie 
bei000 us: ‘WORD 0 GeTR HEAD HERE 
104401 001177 cs: TYPE SCRLF 
017746 000074 MoV = BS, - (SP) ie resthn 


' 
‘ 
| 
! 


SPER Ode EhkOR IE Wad LE Sle SYSMAC) 





TYPOC s0CTA W/ LEADING ZEROS 
met 
MOV , 7 (SP) tC SERRPC 
TYPOC sOCTA W LEADING ZEROS 
thos, RI ‘PI “DATA TABLE” PTR 
‘EXIT IF NULL 
6S: a(R1)+, -(SP) 


Ree bite aL plGiTS 


14S: (R1) 
7$ 


i OEE LTS VECTOR 


t ay Rt : fw QPeRRND LIST PTR 


agnamuneneayegnoonenpnnane 3° 


1S : 
(R1)+, 128 : TITLE 
: 13$ i 9k p If ZERO 
# 
Q00000 128: ¥ 0 ;FROM HERE 
1 13$:  R 14$ 60 FINISH DATA LIST 
15$: MOV (SP)+,R1 TORE R1 
mone Rete 
1206 as .WORD  STESTN 
poles 9$ i SERRPC 
D011 10$ “Asetz (11> iH 
052123 o21440 11S “ASCIZ “TEST # ERR PC 
1 11 OSil2e2 OS0040 
16 000 
030722 EVEN 


Cll 
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DOFPDA.P11  09-FEB-77 10:32 TYPE ROUTINE 
S361 .SBTTL TYPE ROUTINE 
Bes - PEELEPSSSSSSRFSHSARASFERESEASSSRASHA RAKSHA ERSAARHSERREREHE LES ESE 
4 ne pou INe TYPE ASCIZ res MESSAGE MUST TERM NATE i WITH A O BYTE. 
e3eP enOTEL: BU SE BNTAING PER terres TG be Gee Ae rhe FILLER acHARACTER. 
5367 SFILLS CONTAINS THE NUMBER OF FI CHARACTERS RE 
2368 HINOTES: SFILLC CONTAINS CHARACTER TO FILL AFTER. 
S SCALL: 
e370 jal) USING A TRAP INSTRUCTION 
Be ia TYPE  ,MESADR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
i TYPE 
$375 ;# MESADR 
S376 ;# 
2378 ga07ee 105737 001165 STYPE: TSTB STPFLG :31S THERE A TERMINAL? 
5380 030730 Go0000 HALT tt Fat whe IF NO TERMINAL 
Sie Bre 1S MOV 3 -(SP) + Ee RO 
017600 o00002 MOV esp) RO : GET SS OF ASCIZ STRING 
coos 22737 000001 o01222 CMPB © SAPTENY,SENV =; RUNNING IN APT 
2386 BNE 62S i3NO,G0 CH FOR APT CONSOLE 
1 000100 001223 BIT SE TEPOOL,, SENN He 10 APT APT 
cae Gres Glow a EE fear Rabies FoR ae 
6369 737 O3iz2ile JSR PC; SATY3 
5390 050776 000000 61S: . WORD He 
5391 132737 000040 001223 62$: j BITB  #sAPTCSUP,SENVM ;; SSED 
5392 931002 001003 BNE 60S : YES, SKIP YPE Our 
5393 031004 Lede 2s MOVB (RO) +,-(SP) 4 CHARAC 0 BE TYPED ONTO STACK 
5394 031006 001005 BNE 4§ ::BR IF IT ISN'T THE TERMINATOR 
5395 031010 TST (SP)+ :: IF INATOR POP IT OFF THE STACK 
53% 031012 O1 60S MOV (SP)+, RO . 
5397 031014 16 oo0002 3$ ADD #2, (SP) T RETURN PC 
238 1Ge9 oo0002 RTI : RE 
G31 1e27 16 000011 4§ CMPB os BHT, (SP) : BRANCH IF <HT> 
5400 0310e6 0014 BEQ 
5401 031030 122716 000200 CMPB = CRLF, (SP) ;;BRANCH IF NOT <CRLF> 
S402 031034 001006 BNE cs 
EMS 031 TST (SP)+ POP <CR><LF> EQUIV 
031 104401 TYPE :: TYPE A CR AND L 
540s O31 001177 SCRLF 
5406 031044 105037 031200 L SCHARCNT ; CLEAR CHARACTER COUNT 
5407 931059 900755 ::GET NEXT CHARACTER 
5408 031052 031134 S$: JSR C, STYPEC ::GO TYPE THIS CHARACTER 
5409 031056 123726 001164 6S: CMPB es SFILLC,(SP)+  ;:1S IT TIME FOR FILLER CHARS. ? 
5410 0310b¢ 001 BNE *:IF_NO GO GET CHAR. 
S4i1 O31064 O1 001162 MOV $NULL, -(SP) :GET # OF FILLER CHARS. NEEDED 
euis ;;AND THE tg coe 
5413 031070 105366 000001 7$: DECB =s«LC SP) >;D0ES A NULL NEED TO BE TYPED? 
5414 031074 002770 BLT 6$ PR IF NO--GO POP THE NULL OFF OF STACK 
5415 031076 004737 031134 JSR PC. $TYPEC :G0 TYPE A NULL 
S416 031102 105337 031200 DECB  $CHARCNT DO NOT COUNT AS A COUNT 








: 


ee: 
20D ~3 


Sa Soe BRO RRR RR ROR 
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Pll 09-FEB-77 10: T TINE 
031106 000770 BR 7$ ; ;LOOP 
sHORIZONTAL TAB PROCESSOR 
031110 112716 O00040 QS: MOVB ss #’_—«c (SP) ; REPLACE TAB WITH SPACE 
1114 O04 1134 9s: SR PC, TYPEC :: TYPE 
i 031200 TB v7 ; T F NOT AT 
031130 005726 TST (SP)+ :sPOP tee ast K 
fat hs Onee 5 150016 STYPEC: TSTB Sips ?:WAIT UNTIL PRINTER IS READY 
nats reese Ar Stepan TPB NTO DATA REG 
Bis 138677 BBbaie bapode Core Scr ateB) + ORR ROCTER BYCARRIAGE RETURN? 
1156 001003 BNE 1§ ::BRANCH IF NO 
031160 105037 031200 CLRB § §CHARCNT : ? YES- CHARACTER COUNT 
IIee oooo1eg cooode 18: Pe ae acsP) RT MARACTER A LINE FEED? 
C3178 Ob 46e ‘ Q Hi x :t if te 
031176 1 NCB (PC)+ ;;COUNT THE C TER 
031200 000000 SCHARCNT: .WORD 0 ::CHARACTER COUNT STORAGE 
031202 000207 STYPEX: RTS PC 


: 


vw 
on 
~ 


BEBBSBESBESBBSBESE 
ae 


= 
A 
Bb a a ee PS Be Pe Pm ee Ra ee fas Dae ewe Bae po ee Ps bee Be fee fe ee Fe he be ee ee ee ee me Be pe 


SSSSSSSS8sssse8 SBE 


iG) 


soueepeperemssmemesrirergrary 4 


PRATER RECAST Oe 


BSBBBRRRS 
FEsSoRIRS 


= 
N 


88 


7 
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-SBTTL APT COMMUNICATIONS ROUTINE 


112737 900001 031450 GANS MOVE ALSFELG 570 REPORT FATAL ERROR 
H § 5 

112737 000001 O3144%6 SATY3: HOVE sit $ SMFLG ::T0 TYPE 
reeacid 000001 031450 TW: MOVB 1 SFFLC ;;TO ONLY REPORT FATAL ERROR 
vat my AR) A Ere 
10873) 031446 rete StL LG HSOUD ripe TYPE A MESSAGE? 
Agora? 000001 001222 CHP SOPTENV, SENV i openaring { GUNOER APT? 
136737 000100 001223 BITB 8APTSPOOL , SENVM ; ; SHOULD HOULD SHOULD SPOOL MESSAGES? 
ieee 000004 aby (SP), RO rf T Srisabe DOR 
062766 000004 ADD #2, 4(SP) 
ned 001202 1S: Ist is 9EE wif. Unet XMISSION? 
010037 001216 MOV RO, SMSGAD ::PUT ADDR IN MAILBOX 

2s: TSTB. ss CRO) + ::FIND END OF MESSAGE 


SRR SERER ES ERS 


— 
tw 


5 


ab13%e 001216 Bt sa GAD, RO START 
ie Spee ERE Ao 
1 001220 V , SMSGLGT TH I 
nae 000004 001202 HOV #4; SMSGTYPE TELL APT TO TAKE MSG 
1 000004 031360 3$ MOV (SP) 4S ;;PUT MSG ADOR IN JSR LINKAGE 
062766 000002 000004 ADD #2, 4(SP) BUMP RET URN ADDRESS 
01374 177776 MOV 177776, -(SP) pusn bbe ON STAC 
oon? a? 030722 ISR PC, STYPE i CACL TYPE MACRO 
a # -WORD O 

105737 031450 10$ TSTB =: SFFLG ;;SHOULD REPORT FATAL ERROR? 
001416 tt IF NOT: 
005737 001222 TST SENV ; ]RUNNING UNDER APT? 

1413 125 ‘IF NOT: 
005737 001202 118: Ist SHOGTYPE HEINISHED batt MESSAGE? 
017637 cO0004 001208 MOV 4 (SP), SFATAL ::GET 
ppe288 1 _— ane SNSGTYPE ;; TELL Abt NO" ra " O° TAKE UBRRORE 
108037 0314S0 123: CLRB  S$FFLG Hora FLAG 
1 031447 CLRB S$LFLG CL Loeenke 
peta; ee ie Cepia TACK 
nea a SSL 

000 SMELG: -BYTE 0 Hi ofA 

noo tes 9 

Ste: -BYIE te oFal “FAG 
031452 "EVEN 
00000 


B=8 
3 
a: 


AP 
APTSPOOL= 100 


8 


t 
' 
| 
| 
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5496 000040 APTCSUP=040 


Fill 
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T COMMUNICATIONS ROUTINE 


3 
& 


7 
~ 


: 


gaumraaanness § 


RARRAAARAR 
WONMUILWrur-O 


B 


i! 
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Vv 10:34 PAGE 
EB-77 BINARY TO OCTAL (ASCII) AND TYPE 
-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


= 9-3 3-4 EE A a a a a Sat 
ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 


ae Oa HERE TO TUP’ SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


3% MOV NUM, -(SP) $3 0 BE TYPED 

# TYPOS ;;CALL_ FOR TYPEOUT 

:# -BYTE N ;;N=l T 8 FOR NUMBER OF DIGITS TO TYPE 
;# -BYTE 3; Mal 

ft ;;1=TYPE LEADING ZEROS 

if ; ;O=SUPPRESS LEADING ZEROS 

j #STYPON--—-ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
:#S$TYPOS OR 

:#CALL: 

;# MOV NUM, -(SP) ;;NUMBER TO BE TYPED 

i* TYPON ;;CALL FOR TYPEOUT 


j #STYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 


STR GRAS ER CEN ONOASNR 


eo 


es 


SSSSSssssssssssssssssssesssssss 


be he Re Rae Be Fe bee ee pe be bo ee be be Be Ro Pe be be i be ee ee ee ee 


iuusesaad 


: MOV NUM, -(SP) ;;NUMBER TO BE TYPED 
: TYPOC CALL FOR TYPEOUT 
SE TES GREET auars We EN ST HMC HO arc 
464 112637 1B? MOVE  (SP)+'SOMODE+1 ;;NUMBER OF DIGITS TO TYPE 
470 062716 000002 ROD #2, (SP) tt ADJUST RETURN ADDRESS 
476 TF: $ 00000 STYPOC: MO #1,SOFIL ; FILL SWITCH 
S04 Liga? neve G3i677 nee nove te, SOnODE 1 HISET #08 STxe) Dichis 
ene nye 7 ” MOV R3,-(SP) + ive ye 
S2e O10446 MOV RY, -(SP) ; ; SAVE 
oot O105¥6 MOV RS'-(SP) :: SAVE 
ob il 031677 HOVE SOAODE' ::GET THE NUMBER OF DIGITS TO TYPE 
ou Ob oo0008 R00 #6, R4 js SUBTRACT i FOR MAX. ALLOWED 
544 113704 MOVB  SOFILL,R4Y ::GET THE ZERO FILL SWITCH 
550 016605 HOV Lec SP), RS i PICKUP THE INPUT NUMBER 
278 Oe 0s 1S: ROL Re ROTATE A a A -¢* 
obe 006 10s 2S: ROL Re :: FORM Tie DIGIT 
566 rated ROL RS 
570 010503 MOV RS,R3 
72 006103 3S: ROL R3 ;;GET LSB OF THIS, DIGIT 
602 rate 177770 BIC #177770, R3 a iGET R D oF JUNK 
sta TST RY {| SUPPRESS THIS 0? 
612 001403 BEQ S$ ::BR IF YES 


H1l 
:34 PAGE 139 
) AND TYPE 


1 
I 
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BINARY TO OCTAL (AS 
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apt 


: 


E 








ING 


Tuts 
ASC t 
FOR 
TYPE THIS DIGIT 

RoR 
DONE 
LAS 
THE 
RS 
RY 
R3 
ST 


s 2 
4 & 
a = 
2 an” 
8 5 
“ 3 


DIGIT ASCII 


| oe) 
. 


;;D0N’T_ SUPPRESS ANYMORE 0’S 


;;NUMBER OF DIGITS TO TYPE 


7$: 
6$ 


ae eee 


ch bee are ih fe 


Ne ee Dr ee Mee ee i ee ee ee 


= S888S8ssssssssssssss3s 


RRRB EM e Re RoE Bao 
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11 O9-FEB-77 10:32 RAP DECODER 


3 
ae 


-SBTTL TRAP DECODER 
5-2-0 9-0 4 a a 


SES SG be FEROUUT The HRA ThecE COR we SraAYna RodREss 


'¥0F THE DESIRED ROU THE ADDRESS OBTAINED IT WILL 
'xG0 TO THAT ROUTING 
TRAP: -(SP) 
5RS BtPRAE  ooone . fey —sBrges Oy rene AQDRESS 
706 005740 TST = (RO) 
10 111000 MOVE (RO), RO + OP RIGHT BYTE OF 7 


Hf BRR car By Fewno.m ene ere 


suanemmannanans § 


5590 

531 ;;THIS IS USE TO HANDLE THE “GETPRI™ MACRO 

S593 031722 01164 STRAP2: MOV (SP), -(SP) ;MOVE THE PC DOWN 
031724 G1b666 MOV 4(SP},2(SP) ifove THE PSW DOWN 
031732 RTI ‘RESTORE THE PSW 


.SBTTL TRAP TABLE 
;*#THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;#BY THE “TRAP” INSTRUCTION. 


éTRPAD: .WORD sTRare 
gHOBP ; TRAP+1( 104401) TTY TYPEOUT ROUTI 


TVS ite see JRRRSRtARuna) REE Get ree | TY SBARE SCREEN 


STYPON ALL=TYPON TRAP+4( 104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
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DOFPDA.P11  09-FEB-77 10:32 POWER DOWN AND UP ROUTINES 
Sell .SBTTL POWER DOWN AND UP ROUTINES 
gels $3 SKEAKEASSSASRASHSSARERSRRRKSRELSREREALERERAARRERARRARASHRASRELAS 
14 *POWER DOWN ROUTINE 
5615 03174 012737 032120 000024 $PWRON: MOV SSILLUP, J8PWRVEC ; -SET FOR FAST UP 
5616 031754 012737 000340 O00026 MOV DePURVEC+E Hey 
B17 1762 O1 MOV RO, -(SP) 20 ON 
18 1764 ats MOV oe ) 4 SN tack 
bl 1 10246 MOV * (SP) ON STACK 
S620 031 010346 MOV R3, -(SP) iret 
Sh21 031772 O10446 MOV R4; -(SP) : PUSH RY 
1774 Ql V -(SP) PUSH ON STACK K 
1 47144 Vv -(SP) 33 ON STACK 
1 124 MOV Shavit : SAVE 
S625 032008 012737 O32020 000024 HOV SSPURUP, DSPWRVEC’ :;SET UP VECTOR 
eer Gaeole poorye BR -2 3 ;HANG UP 
S629 F O77 7 naan ata raring ati teat 
ee 1 032120 000024 $PWRUP: MOV SSILLUP, QBPWRVEC ; SET FOR FAST DOWN 
opa neers ae 032124 MOV SSAURE ap tAPe Sp 
5633 032124 CLR SAVRE’ rte “Toor Fp FOR THE TTY 
ops Tg7y “eles > 2 #8 dm 
5636 O32044 011600 MOV (SP) ,RO SAET SAVED SWR OFF STACK 
5637 032046 076600 000226 MED 226 “RESTORE SWR CONTENTS 
5638 O3e0S2 012677 147070 MOV (SP)+, aSWR :;POP STACK INTO aSWR 
5639 032056 012605 MOV (SP)+'RS5 POP STACK INTO RS 
S640 032060 012604 MOV (SP)+/R4 *:POP STACK INTO R4 
S64 12603 MOV (SP)+'R3 >;POP STACK NTO R3 
eeye 1 MOV (SP)+'R2 11 BOR TACK INTO Re 
5643 Ces Oicb01 MOV (SP)+'R POP STACK INTO RI Ri 
S44 1 MOV (SP)+ 
Sh4S5 032072 012737 03174 o00024 MOV cag cearat; TYP THE POWER DOWN VECTOR 
aus 932100 016737 000340 O00026 MOV 8340, J#PWRVEC+O ‘bp 
47 032106 104401 TYPE EPOnt THE POWER FaTLURE 
5648 032110 032126 SPWRNG: .WORD S$POWER L MESSAGE POINTER 
S649 OQ3elle 6 MOV (PC)+, (SP) meta 
set Getic rome eo REST les 
S652 032120 000000 SILLUP: HALT THE POWER UP SEQUENCE WAS STARTED 
5653 Ose lee 000776 BR -2 tr ORE THE POWER DOWN WAS COMPLETE 
5654 124 00000 SSAVR6: 0 T THE SP HERE 
E55 032156 O0SO1S O47S20 O42S27 SPOWER: .ASCIZ <15S><12>"POWER™ ' 
pb 56 032134 000122 eal 





: 2 
g 2 
25 es 
rb. - 
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z ¢ be : e 
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DMR rors  paseae pen 
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- _ '9 Ge fw 
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oo acatslek ails foe Gila Sees | 
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Bela 
632144 
032152 
032153 
032160 
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DATA HEADERS, DATA 


O9-FEB-77_ 10: 
SSAGES, 


) 
ME 


27( 1006 
ERROR 


a MACY11 


/DIV_ RANDOM 
77 10: 


-Pll 


FPU 


“ADDF - FPS ERROR” 
“SUBF - FPS ERROR” 
“MULF - FPS ERROR” 
“DIVE - FPS ERROR” 
“ADDD - FPS ERROR” 
“SUBD - FPS ERROR” 
“MULD - FPS ERROR” 
“DIVD - FPS ERROR” 
“ADDF - FEC/FEA ERROR” 
“SUBF - FEC/FEA ERROR” 
“MULF - FEC/FEA ERROR” 
“DIVF - FEC/FEA ERROR” 
“ADDD - FEC/FEA ERROR” 
“SUBD - FEC/FEA ERROR” 
“MULD - FEC/FEA ERROR” 


ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
-ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 


EMJ: 
EMR: 


EMN: 


iiedane 
- a el se a Sagi os iia rae a ita tee 
Sadie eck ages deaeses aes 
aa cr a Aa 

sea aaaaNaaaaHAAS 
ee PR RR RRs Stee eee 


EMU 

EMV 
104 EMM: 
EMx 
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e L ae ay jc PARE Foes eet eatonet 


;DATA HEADERS HERE 
“ASCIZ “EXP’D RCV’D” 


DHE: -ASCIZ °---EXPECTED--- --- RECEIVED---" 









tATAtatatata 
ATAtAtaAt 










AtAtA 
Atata?t 


Co 
3 
R 
N 
m 
a 
° 


eas 


O41S20 OHD: -ASCIZ “OLD PC OLD PS’ FPS FEC FEA SFPS SFEC SFEA” 


EIS 


443 
nists 


DHE : -ASCIZ “EXP’D-FEC-RCV’D EXP’ D-FEA-RCV’ D” 


;DATA VECTORS HERE 


‘EVEN 

BiB; “WORD SFEC’FEC’SFEA,FEA,O 

DTD:  .WORD  ANS2,ANS2+2,ANS1,ANS1+2, 0 

OTE:  .WORD ANS2,ANS242, ANS2+4, ANS2+6 
[WORD ANS, ANS142, ANS1+4, ANS1+6, 0 
WORD 


OTF: FPPOPC ,FPPOPS ,FPS,FEC,FEA, SFPS,SFEC, SFEA,0 


eT eT a ea rane 
NOWMEW-O 


N1l 
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Pil O9-FEB-77 10:32 ERROR MESSAGES, DATA HEADERS, Data VECTORS, OPERAND VECTORS, ETC 


VECTORS HERE 
XLO, LONUM, LONUM+2, LONUM+4 , LONUM+6,, 0 
XHI, HINUM, HINUM+2, HINUM+4, HINUM+6, 0 
XLO, LONUM, LONUM+2, 0 
XHI, HINUM, HINUM+2, 0 
XOP1, OP1,OP1+2,0 
xOP2, OP2, OP2+2, 0 
XOP3, OP3, OP3+2, 0 
XOP4, OP4, OP4+2, 0 
XOPS, OPS, OPS+2, 0 
XOP6, OP6, OP+2, 0 
XOP1, OP1,0P1+2, OP1+4, OP1+6, 0 
xOP2, OP2, OP2+2, OP2+4, OP2+6, 0 
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MULC pees 12088 oad 46928 
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OP 1 002446 11838 3704 3713 3734 3809 3820 3841 5836 S848 
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ss 002506 11918 3205 3722 3740 3813 3814 3823 3843 Saad S856 
O340S2 1156 r] 
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Se a es 


STACK = 001100 7708 1 is 4 
gras beBia 3077 : 
= 177774 7818 
oo34S2 13949 1351 13658 3947 
SVEC1 O22302 4000 40308 
aVeRs 022326 4004 40348 
ae 4008 40378 
114% 9738 1c60 12824 1284 1290% 12978 1348 1371 1374 3933 3972 3975 5165 
5179 5187 5194 S240 S247 S2eS9 S262 S623 S638* 
SWREG 000176 9078 1290 
SWO = 000001 8348 
SWOO == 000001 B48 834 1374 
SWOl = 8238 833 1371 3933 
SWO2 = OO0004 8228 832 
SWO3 = 000010 8218 831 
SWO4Y = 000020 8208 830 
SWOS = 8198 829 
as = 1 g198 828 
= 8178 827 
SWOB = 8168 B26 
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SW10 = 002000 8148 3972 
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le = les 3975 
13 = ing 
14 = 108 
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SW2 = 8328 
a: et 
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STATUS 0 @ 3838 «8=s 39143 3=—ss39950s—s«S1S2 Ss S21S)=S ss S274 == ss 8363s S442 Ss SH99°—ss«SS760=—S ss S613s« SAI 
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TADORI 7388 
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TYPBIN 8778 
TYPDEC 8778 
TYPNAN =—s-s« 8778 
TYPNUM 8778 
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UPCODE 7388 5636 
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-STPAS 7388 1312 
- SACT 73880 = 911 
, 7388 = 9908 
-SAPTH 7388 See 
-SAPTY 7388 S440 
- SCATC 7388 899 
-SCHTA 87388 8 8=©694S 
- SEOP 7388 
- SERRO 7388 8 §$213 
-SPOME 7388 5611 
-SSCOP 7388 $150 
-STRAP) = 7388 S574 
-#t 7388 
.$T 7388 5361 
- STYPO 7388 5497 
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